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ABSTRACT 


An  interactive  computer  simulation  of  marine  gas 
installations  including  intake  and  exnaust  ducting 
engine  and  module  cooling  oas  been  developed, 
dimensional  analysis  was  used  in  determining  the 
losses  of  the  ducting.  The  pressure  losses  along 
ambient  conditions  and  desired  power  setting  define 
operating  point  for  the  system.  The  computer  model 
operating  parameters  for  this  point  by  an  iterative 
techniq  ue. 
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I.  INTRODUCTION 


The  installation  of  gas  turbine  engines  in  a  snip  raises 
several  problem  areas  in  the  design  of  the  intake  and 
exhaust  ducting.  The  problems  relate  Qainly  witn  the  large 
volume  of  combustion  air  required  and  the  properties  of  the 
exhaust  gases  rejected  to  the  atmospaere  at  Lign  tempera¬ 
tures  and  velocity.  For  comparison,  a  boiler’s  combustion 
air  requirement  is  nearly  stoichiometric  but  the  gas  turDine 
operates  at  about  400  percent  of  stoicniometric.  The  toil¬ 
er's  exhaust  is  about  400  degrees  F  after  leaving  the  last 
rows  of  the  economizer,  but  gas  turbine  exhaust  temperatures 
are  frequently  as  high  as  950  degrees  F. 

In  addition  to  the  air  that  passes  txirougn  the  gas 
turbine  engine  there  is  also  a  requirement  to  ventilate  the 
engine  enclosure.  An  adequate  and  uniformly  distributed 
cooling  airflow  is  required  around  the  engine  to  maintain 
engine-mounted  components  at  their  proper  operating  tempera¬ 
tures  and  to  minimize  the  heat  rejected  to  the  engine  room 
thereby  reducing  the  heat  exposure  of  operating  personnel, 
^any  current  designs  branch  the  engine  cooling  airflow  off 
the  main  intakes  and/or  join  neated  enclosure  cooling  air 
into  the  engine  exhaust  ducting.  Figure  1.1  shows  a  typical 
layout  of  inlet  and  exhaust  ducting.  Since  the  enclosure 
cooling  airflow  is  on  the  order  of  20  percent  of  the 
engine's  full  power  airflow  rate,  it  is  ar.  important  part  of 
the  ducting  design. 

The  fundamental  requirement  of  an  intake  design  is  to 
provide  air  to  the  engine  compressor  witn  tne  minimum  total 
pressure  loss  and  witn  a  minimum  of  total  pressure  distor¬ 
tion.  The  loss  of  total  pressure  in  the  intakes  leads  to  a 
loss  of  engine  power  and  an  increase  in  specific  fuel 
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Figure  1.1  Typical  Shipboard  Inlet  and  Exhaust  Ducting. 


consumption.  Schwieger  reports  "Typical  exchange  rates  are 
that  a  one  percent  loss  in  intake  pressure  is  equivalent  to 
a  2.2  percent  loss  in  power  and  a  1.2  percent  increase  in 
specific  fuel  consumption"  [Ref.  1  ].  Additionally ,  total 
pressure  distortion  at  the  compressor  face  can  lead  to  a 


risk  cf  compressor  blade  failure. 

Exhaust  ducts  must  also  operate  with  a  minimum  pressure 
loss.  "The  exchange  rate  is  1. 1  percent  loss  in  power  and 
1.1  percent  increase  in  specific  fuel  consumption  for  the 
one  percent  increase  in  total  pressure  at  the  power  turbine 
exit "  [Ref.  1  ]. 

Conflicting  with  the  desigtf  objective  to  reduce  losses 
in  the  ducting  system  are  several  possible  requirements  to 


install  components  in  the  ducting  system  which  contribute  to 
the  losses  tut  not  directly  to  engine  performance.  Filters 
are  installed  to  increase  engine  life.  Silencers  are 
installed  to  reduce  noise.  Machinery  arrangements  dictate 
the  use  cf  certain  elbows,  contractions,  and  transitions. 
The  inrared  signature  of  the  ship’s  exhaust  plume  can  be 
reduced  by  the  installation  of  an  eductor  system  at  the 
exhaust  exit.  The  eductor  also  improves  the  environment  of 
mast  mounted  equipment  and  may  contribute  to  flight  safety 
when  operating  helicopters.  Some  systems  use  an  eductor 
arrangement  installed  at  the  exhaust  plane  of  the  engine  to 
pump  cooling  air  through  the  engine  enclosure.  A  waste  neat 
recovery  boiler  may  be  installed  in  the  exhaust  to  improve 
overall  efficiency.  To  reduce  pressure  losses  every  attempt 
should  be  made  to  reduce  the  velocity  in  the  duct.  Lower 
velocities  requires  larger  ducts.  Part  of  the  design 
compromise  must  balance  the  large  volume  of  the  ship  occu¬ 
pied  with  inlet  and  exnaust  ducts  and  the  volume  for  other 
uses  such  as  weapons  and  ha bitibiiity .  In  summary  there  are 
many  different  components  that  can  oe  utilized  within  the 
ducting  system  and  have  various  effects  on  the  system 
performance.  The  effects  also  vary  with  the  operating  point 
of  the  system. 

It  is  not  a  straight  forward  proclem  to  predict  how 
components  in  the  ducting  system  will  perform.  It  is  an 
interacting  or  matching  type  of  problem.  Furtnermore,  it  is 
a  dynamic  problem  as  parameters  affecting  performance  car. 
vary  over  a  wide  range.  For  example,  one  power  setting  of 
the  gas  turbine  requires  a  different  mass  flow  rate  of  air 
than  another.  The  variable  mass  flow  rate  tnrougb  the 
ducting  system  creats  a  variable  inlet  and  exhaust  duct 
pressure  loss.  The  variation  in  exhaust  temperature  affects 
the  losses  ia  the  exhaust  duct.  Intimately  all  losses 
affect  the  performance  of  the  qas  turbine  engine. 
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One  approach  to  the  analysis  of  ducting  system  perform¬ 
ance  is  to  separate  the  problem  into  tvo  areas  of  concern. 
The  first  area  should  deal  with  a  one- dimensional  analysis 
of  the  ducting  system  to  determine  now  pressure  losses 
affect  engine  performance  and  how  the  various  components  of 
the  system  contribute  to  the  sum  total  of  these  losses.  The 
second  area  should  deal  with  the  distortion  of  total  pres¬ 
sure  across  any  section  of  the  duct.  This  area  becomes  a 
three-dimensional  problem  where  interest  is  directed  to 
performance  not  just  at  any  section  of  the  duct  but  to 
within  that  section  to  the  variation  of  velocity  across  tne 
cutting  plane.  The  one-dimensional  and  three-dimensional 
areas  of  the  analysis  are  of  course  related. 

The  relationship  between  the  one-dimensional  and  the 
three-dimensional  aspect  of  the  problem  is  understood  and  is 
dealt  with  in  an  empirical  manner.  Ine  method  is  to  apply  a 
correction  factor  to  the  loss  developed  in  the  one¬ 
dimensional  analysis  of  a  particular  system  component,  based 
on  the  distortion  of  the  flow  assumed  to  be  presented  to  tne 
component.  If  the  assumptions  about  flow  distortion  are 
made  and  are  accurate  much  valuable  information  results  from 
the  one-dimensional  analysis. 

The  three-dimensional  analysis  of  a  duct  system  is 
possible  only  for  a  very  simple  system  and  reguires  very 
large  computer  assets.  It  is  current  practice  to  deal  with 
three-dimensional  analysis  of  complex  systems  through  model 
studies.  One- dimensional  analysis  on  the  other  hand  is  well 
suited  for  analysis  cn  a  computer. 

It  is  the  intent  of  this  study  to  develop  the  method¬ 
ology  for  a  one-dimensional  analysis  of  a  gas  turbine 
engine’s  inlet  and  exhaust  ducting  as  mignt  be  installed  on 
a  ship.  Then  to  implement  the  method  in  an  interactive 
computer  program  which  allows  rapid  input  of  the  duct  geom¬ 
etry,  desired  operating  point  and  ambient  conditions  to 


obtain  an  accurate  estimate  of  performance.  The  designer 
can  then  decide  to  make  cnanges  to  components  to  achieve 
design  objectives  and  make  tnose  changes  to  the  duct  geom¬ 
etry  througn  an  editing  routine  and  rerun  the  problem.  Cnee 
the  designer  is  satisfied  with  the  one  dimensional  analysis 
a  firm  oasis  exists  to  provide  a  design  for  model  studies. 
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II.  THEORY  AND  ANALYSIS 


A.  GEIEEAL 

A  one  dimensional  analysis  of  the  flow  m  duct  sections 
utili2es  the  3ernoulli  Equation  modified  to  account  for 
losses.  The  term  one-dimensional  is  an  adjective  often 
applied  to  flow  situations.  The  whole  flow  is  considered  to 
he  one  large  streamtufce  with  average  velocity  V  at  each 
cross  section.  Thus  the  one  dimension  is  the  location  down 
the  duct.  Losses  refers  to  the  pressure  loss  caused  by 
frictional  stresses  in  the  airflow  boundary  layer  and  by 
turbulence.  A  thorough  understanding  of  these  terms  and 
concepts  is  required  to  convey  the  meaning  of  the  results  of 
the  duct  system  analysis. 

B.  THE  BERNOULLI  EQUATION 

The  Eernoulli  Equation  is  discussed  in  any  basic  text  on 
fluid  mechanics.  It  was  developed  to  describe  tne  flow  work 
of  an  ideal  incompressiole  fluid  iu  steady  flow  through  a 
streamtube.  In  words  it  states  that  the  mechanical  energy 
per  unit  mass  along  a  streamline  is  conserved.  The 
Bernoulli  Equation  is: 

v2/2gc  ♦  p/p  ♦  (g/gc)  z  *  constant.  (eqn  2.1) 

It  relates  velocity,  pressure,  and  potential  height.  The 
constant  may  have  a  different  value  for  each  streamline,  but 
for  the  purposes  of  duct  flow  certain  simplifying  assump¬ 
tions  are  valid  which  make  the  constant  valid  for  any 
streamline.  The  assumptions  are  that  the  static  pressure  is 
constant  at  any  point  in  a  cross  section  of  tne  duct.  The 
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next  assumption  is  that  because  the  system  uses  gases,  the 
effect  of  variation  in  potential  height  at  a  duct  section  is 
so  small  relative  to  the  other  terms  that  its  effect  is 
neglected.  This  assumption  is  extenied  further  to  include 
the  change  in  elevation  effect  at  any  section  relative  to 
any  other  section. 

Alternate  forms  of  the  Bernoulli  Equation  are  octair.ed 
by  multiplying  through  ty  either  gc/g  or  fi  •  0c  interest  to 
gas  flow  and  duct  design  is  the  form  ootained  by  multiplying 
through  ty  p  .  Applying  the  above  assumptions  tne  resulting 
equation  is: 

/ovV2gc  +p  =  constant  (egn  2.2) 

In  this  form  the  constant  has  unit?  of  foot-pound  force/ 
feet*  and  expresses  the  energy  per  unit  volume  flow  rate. 
It  reduces  to  pound  force/feet2  or  pressure.  Each  term  in 
the  expression  is  given  a  name.  The  velocity  term  is  the 
velocity  presure,  p  is  the  static  pressure,  and  the  constant 
is  the  total  pressure.  In  words,  the  total  pressure  at  a 
point  is  the  sum  of  the  velocity  pressure  and  the  static 
pressure. 

C.  HODIFIED  BERBODL1I  EQUATION 

Although  eguation  2.2  was  derived  for  flow  along  a 
streamtube  of  an  ideal  frictionless  flow  it  can  be  extended 
to  analyze  flow  through  ducts  in  real  systems  by  applying 
the  First  Law  of  Thermodynamics.  A  good  development  of  the 
application  of  the  First  Law  of  Thermodynamics  to  pipe  flow 
is  found  in  [Bef.  2].  It  results  in  tne  modified  Bernoulli 
Eguation  (2.3).  Eguation  (2.3)  incorporates  all  tne  assump¬ 
tions  so  far  and  includes  the  termAp*.  The  flow  resistance 
in  a  system  with  a  real  fluid  between  stations  1  and  2  is 
represented  by  the  total  pressure  loss,Apt. 


/•***/ 2Se  ♦  Pt  *  y«v|/2 gt  ♦  P*  *  ^Pt 


(eqn  2.3) 


The  velocity  used  in  the  modiried  Bernoulli  Equation 
will  he  taken  as  the  mean  velocity  and  then  this  equation 
will  be  assumed  valid  for  any  streamline  in  the  duct. 
Analytically  this  is  not  correct  because  there  is  a  varia¬ 
tion  of  velocity  at  a  duct  section  iroa  the  walls  to  the 
center  of  the  duct.  The  error  introduced  by  this  assumption 
is  offset  by  two  circumstances.  First,  with  turbulent  flow 
tne  velocity  profile  is  nearly  uniform  wnich  makes  the  mean 
velocity  a  good  approximation  of  the  velocity  at  any  point 
in  the  cross  section.  Second,  experimentally  determined 
loss  coefficients  are  utilized  in  computations  and  this 
coefficient  is  applied  using  the  mean  velocity.  Then  if  the 
velocity  profile  in  the  system  matches  the  profile  of  the 
experiment,  the  loss  will  be  correcrtiy  computed  using  the 
mean  velocity. 

The  computer  program  uses  the  mean  velocity  and  computes 
it  basea  on  mass  flow  rates.  The  mean  velocity  is  computed 
from  the  mass  flow  through  a  sectional  area  and  the  density 
of  the  fluid  at  the  section  using  eguation  2.4.  Density  is 
computed  by  the  perfect  gas  law  eguation  (2.5)  and  is  a 
function  of  the  absolute  temperature  of  tne  gas  and  the 
static  pressure  of  the  gas. 

*  -Ta-  (evin  2*4) 


/»  =  F/BT 


where 


(egn  2.5) 


p  =  static  pressure 
R  =  gas  constant 
T  =  absolute  temperature 


D.  PBESSUHE  LOSSES 


There  are  two  types  of  fluid  losses  in  the  ducting 
system,  frictional  and  dynamic  losses.  Frictional  losses 
occur  along  the  walls  of  the  entire  duct  length  and  are  due 
to  fluid  viscosity.  Dynamic  losses  result  from  disturbing 
the  flow  such  as  a  change  of  direction,  contraction,  or 
expansion. 

The  Darcy-Weisbach  equation  (2.6)  calculates  the  fric¬ 
tion  loss  for  straight  ducts. 


Darcy-Viiesbach  equation  A  pt 


(egn  2.6) 


where  Apt  =  frictions  loss 

in  terms  of  total  pressure 
i  =  friction  factor 
L  =  duct  length 
D  *  duct  diameter  or 


equivalent  hydraulic  diameter 
*  velocity  pressure 

The  friction  factor,/,  used  in  computing  duct  losses  is 
taken  frcm  a  correlation  by  Svamee  and  Jain  presented  in 


[fief.  2]. 


/0  a  -ft  * 


Q.tsr 


^-oe,(fn75  +  ]  2  sooo*  R •  s  to 


(egn  2.7) 


The  absolute  roughness  factor,  e,  is  taken  to  be  0.0J015 
feet  for  all  air  duct  components.  For  rectangular  straight 
duct  sections  the  equivalent  hydraulic  diameter,  De  ,  is 
calculated  by  eguation  (2.8)  presented  m  [fief.  3]. 

Equations  2.6,  2.7,  and  2.8  are  utilized  in  the  program  for 
computing  friction  losses  in  the  straignt  sections  of  the 
duct . 
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3  -  /30_leJd^f_ 

'  (*+b)07-*° 


(egn  2.8) 


Friction  losses  occur  in  all  fittings  r.ot  just  in 
straight  duct.  There  are  two  techniques  to  arrive  at  the 
friction  losses  in  these  other  fittings.  The  decision  atout 
which  technique  to  use  depends  on  the  wnether  tne  fitting  is 
snort  or  long.  In  short  fittings  friction  is  accounted  for 
b 7  measuring  the  connecting  sections  of  straignt  duct  to  the 
center  of  the  fitting.  No  attempt  is  made  to  include  fric¬ 
tion  in  the  calculation  of  fluid  resistance  for  a  short 
fitting.  Elbows  are  short  fittings.  For  long  fittings  such 
as  diffusers  and  contractions,  friction  is  included  in  tne 
computation  of  the  flow  resistance  coefficient.  Therefore, 
a  connecting  straignt  duct  length  should  be  measured  to  the 
center  of  an  elbow  cr  to  the  start  or  end  of  a  diffuser  or 
contraction. 

Dynamic  losses  are  sometimes  called  local  or  minor 
losses.  In  piping  systems,  losses  due  to  the  local  distur¬ 
bances  of  the  flow  are  often  called  minor  losses.  In  very 
long  piping  systems  these  losses  are  usually  insignificant 
ir.  ccmparison  with  the  friction  in  tne  length  considered. 
In  the  duct  used  for  a  gas  turbine  installation  tnese 
so-called  minor  losses  actually  become  major  losses  because 
or  the  short  lengths  usually  encountered.  Experimental 
results  are  almost  always  used  to  account  for  pressure 
losses  through  the  duct  fittings.  Such  information  is 
usually  given  in  the  form  of  equation  2.9. 


Apt  =  K/>v2/2gt 


(egn  2.9) 


The  ccecficient  K  is  given  for  the  fitting  in  numerous  hand¬ 
books.  Figure  2.1  shows  some  typical  rerresenta tions  of  the 
information  available. 
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The  drawings  were  reproduced  from 
[  fi sf  •  6  ]. 


Figure  2.1  Typical  K  Values  for  Fittings. 


One  of  the  purposes  of  the  program  is  to  provide  K  coef¬ 
ficients  for  various  fittings  selected  to  represent  duct 
components.  K  values  can  vary  with  tne  geometry  of  a 
fitting.  For  example,  a  long  smooth  radius  rectangular 
elbow  has  a  lower  K  value  than  a  short  smooth  radius  rectan¬ 
gular  elbow.  The  program  taxes  this  into  account  and  is  the 
reascn  for  the  various  questions  about  a  fitting's  geometry 
in  the  area  of  the  program  where  the  user  is  inputing  the 
duct  system. 

Two  fittings  in  the  program's  menu  do  not  require  geom¬ 
etry  inputs  to  obtain  resistance  information.  The  two 
fittings  are  filters  and  the  gas  turbine  module.  The  reason 


for  the  lack  of  questions  is  that  the  losses  are  fcased  on 
manufacturer's  data.  Filter  manufacturers  provide  pressure 
loss  data  based  on  face  velocity  and  tne  module  is  fcased  or. 
the  mass  flow  rate  of  cooling  air.  A  power  curve  fits  the 
data  and  the  program  uses  the  curve  to  model  pressure  losses 
for  these  fittings. 

Table  I  sumarizes  the  fittings  available  from  the 
program's  menu.  Ihe  fluid  resistance  coefficients  are 
computed  by  the  program  upon  input  of  the  reguired  geometry 
factors  for  the  fitting.  Input  of  the  duct  fittings  is 
accomplished  interactively.  The  source  of  the  model  for 
eacn  fitting  is  noted  in  the  program  listing  in  tne  title 
block  of  the  fitting  subroutine.  The  program  subroutines 
FIT 0 1  through  FIT29  correspond  to  the  fittings  listed  in 
table  I  A  sketch  of  each  fitting  is  provided  in  the 
user's  manual  for  the  program.  The  user's  manual  is 
Appendix  C. 

E.  GAS  TURBINE/STSTEB  INTERFACE 

General  Electric  Company,  the  manufacturer  of  the  LM2500 
marine  gas  turbine,  publishes  performance  data  for  its 
engine  under  variable  operating  conditions.  [Ref.  4],  It 
is  important  to  understand  hew  the  shipboard  engine  is  oper¬ 
ated  under  variable  operating  conditions  suen  as  duct  losses 
and  ambient  temperature  ,  pressure  and  humility  so  that  the 
proper  corrections  may  be  applied  to  tne  engine  performance 
parameters  for  these  variables. 
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TABLE  I 

Fittings  Available  From  Program  Menu 


gitting  Number 
01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 


Descri Ption 

Intake  shaft,  rectangular  :ross 
section,  side  omices,  with  or 
without  louvers 

Straight  duct,  round  or 
rectafi  gular 

Smooth  radius  round  eibow 

Found  90  degree  segmented  elbow 
with  3,4,  or  5  pieces 

Mitered  round  elbow  witn  or 
without  concentric  vanes 

Mitered  rectangular  elbow 

Smooth  radius  rectangular 
elbow 

Smooth  radius  rectangular 
elbow  with  splitters 

Mitered  rectangular  elbow 
with  vanes 

Rectangular  elbow  with 
converging  or  diverging  flow 

90  degree  rectangular  elbows 
in  a  2-snaped  configuration 

90  degree  rectangular  elbows 
in  different  planes 

Eranch  section  of  a  diverging 
wye 

Main  section  of  a  diverging  wye 

Eranch  section  of  a  convergent 
wye 

Main  section  of  a  convergent  wy 
Conical  rounu  diffuser 
Plane  in-line  diffuser 
Pyramidial  in-line  diffuser 
Transitional  diffuser 
Bound  contraction 
Rectangular  contraction 
Screen  obstruction  in  duct 
Louver  entrance 
continued  next  page 
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25  Filter  element 

26  Multi-baffie  type  silencer 

27  Gas  turbine  module  enclosure 

28  Waste  heat  recovery  Doiler 

29  Abrupt  exit 

20  Fitting  not  listed 

From  the  shipboard  operator's  point  of  view  the  engine 
should  drive  the  ship  at  the  desired  s^eed  whether  it  is  a 
hot  day  cr  a  cold  day,  or  if  the  inlet  duct  losses  are  four 
inches  of  water  or  eight.  The  engine  is  operating  differ¬ 
ently  under  such  conditions  to  produce  the  same  horsepower 
and  speed.  The  proper  correction  factor  set  to  be  applied 
to  the  tabulated  data  is  the  set  for  constant  speed  and 
horsepower.  The  corrections  are  applied  in  the  program  with 
eacn  iteration  of  the  duct  system  performance  calculations 
using  the  current  values  of  the  inlet  and  exhaust  duct 
losses  and  ambient  conditions.  The  corrections  are  very 
small  (less  than  twc  percent)  and  tne  convergence  of  the 
correct  engine  operating  point  and  duct  losses  created  by 
tne  mass  flow  of  air  required  at  the  operating  point  is 
quite  stable. 

F.  FAM/SISTEM  INTERFACE 

The  operating  point  of  the  fan  installed  in  a  duct 
system  is  the  point  where  the  fan  characteristic  curve 
intersects  the  system  characteristic  curve.  The  fan  curve 
shows  pressure  rise  vs.  flow  rate.  Witn  increasing  flow  the 
pressure  rise  across  the  fan  is  reduced.  The  system  curve 
is  the  opposite,  increasing  flow  in  tne  system  increases  the 
resistance  to  flow.  Figure  2.2  represents  t.iis  situation 


In  the  iteration  process  the  system  curve  is  estimated 
as  a  quadratic  fitted  to  the  origin  as  a  minimum  point  and 
the  other  point  at  the  assumed  flow  and  resulting  pres¬ 
sure  loss.  Similiarily  the  fan  curve  is  also  represented  as 
a  quadratic  with  a  maximum  at  maximum  pressure  attainanie 
and  the  corresponding  flow  and  anotner  point  at  zero  pres¬ 
sure  and  maximum  flow.  The  representation  of  the  fan 
performance  for  the  default  condition,  the  Spruance  ciass 
destroyer  module  cooling  fan,  is  excellent.  with  an  equa¬ 
tion  for  both  curves  the  point  of  intersection  can  be 
obtained.  The  resulting  flow  is  used  in  the  next  iteration 
until  the  resistance  of  the  system  and  tne  pressure  rise 
across  the  fan  is  the  same  for  the  assumed  flow. 


G.  JUNCTIONS  OH  HYES 


An  excellent  discussion  of  tne  mixing  of  two  streams 
moving  at  different  velocities  was  written  by  Idel'chik  and 
is  presented  here  to  develop  the  background  for  the 
eductor/system  interface  discussion. 

The  junction  of  two  parallel  streams  moving  at 
different  velocities  is  characterized  by  turbulent 
mixing  of  the  streams,  accompanied  bv  pressure  losses. 

In  tne  course  of  this  mixing  an  excuange  of  the  momentum 
takes  place  between  the  particles  moving  at  different 
velocities,  finally  resulting  in  tne  e^uili zati on  of  the 
velocity  distributions  in  the  common  stream.  The  jet 
with  higher  velocity  loses  a  part  of  its  kinetic  energy 
by  transmitting  it  to  the  slower  jet. 

The  loss  in  total  pressure  oefore  and  after  mixing 
is  always  large  and  positive  for  the  higher- velocit y 
jet,  ana  increases  with  an  increase  in  tne  amount  of 
energy  transmitted  to  the  lower  velocity  jet. 
Consequently ,  the  resistance  coefficient,  which  is 
defined  as  tne  ratio  of  the  difference  of  total  pressure 
to  the  mean  dynamic  pressure  in  tne  given  section,  will 
likewise  always  be  positive.  As  to  the  lower- velocit y 
jet,  the  energy  stored  in  it  increases  as  a  result  of 
mixing.  The  loss  in  total  pressure  and  the  resistance 
coefficient  can,  therefore,  also  nave  negative  values 
for  the  lower- velocity  jet  [Ref.  5]. 

Tne  program  incorporates  this  concept  at  tne  junction  of  the 

module  ccoling  air  and  the  engine  exhaust  (if  tne  system  is 

so  configured)  .  The  program  assumes  the  lower  velocity  jet 
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PRESSURE 


Figure  2.2  Fan/Systei  Interface 


to  be  the  cooling  flew  and  the  nigner  velocity  jet  to  be  tne 
exhaust  flow. 

H.  E  DOCTOB/SYST  Eil  I HTEBF1C  E 

The  eductor  discussed  in  this  section  is  used  in  the 
engine's  exhaust  to  move  cooling  air  through  the  cooling 
ducting  and  engine  enclosure.  There  is  a  mixing  of  the 
cooling  flow  and  exhaust  before  it  is  discharged  to  the 
atmosphere.  This  section  does  not  discuss  tne  eductor 
installed  at  the  exhaust  duct  exit.  The  only  component  of 
interest  there  is  the  nozzle  as  a  dynamic  loss.  The  effect 
of  the  external  mixing  tube  is  small  and  can  be  neglected. 

The  module  cooling  eductor  is  used  on  the  Oliver  Hazard 
Perry  class  frigate.  It  is  shown  schematically  in  figure 
2.3.  The  eductor  system  is  illustrated  in  figure  2.4.  This 
figure  shows  the  geometry  and  pressure  distribution  during 
the  mixing  of  primary  flow,  engine  exhaust,  and  the  secon¬ 
dary  flow,  module  cooling  flow.  A  maten  point  concept  can 
be  developed  for  the  eductor  muen  like  the  fan  and  system 
interface  concept  shown  in  figure  2.2.  One  curve  is  called 
the  gain  required  and  the  other  the  gain  available.  These 
curves  are  shown  in  figure  2.5.  Given  the  geometry  of  the 
mixing  area  the  gain  available  can  oe  computed  by  varying 
tne  cooling  flow  while  the  primary  flow,  the  engine  exhaust, 
remains  nearly  constant  for  the  desired  power  setting.  The 
gain  available  is  a  maximum  at  zero  cooling  flow. 

The  gain  required  is  computed  by  dividing  the  system  at 
the  eductor  and  is  analogous  to  the  system  characteristic 
model  in  figure  2.2.  On  the  downstream  side  cooling  and 
engine  exhaust  flows  move  tarougc  the  exhaust  duct.  The 
cooiing  flow  moves  through  tne  upstream  duct.  Total  pres¬ 
sure  losses  can  be  computed  for  both  and  tne  sum  is  the  gain 
required.  Since  these  computations  are  taking  place  at 


nearly  constant  primary  flow,  engine  exhaust,  the  gain 
required  at  an  operating  point  is  a  function  of  the  cooling 
flow.  The  gain  required  at  zero  cooling  flow  is  the  exhaust 
duct  pressure  loss  under  the  flow  condition  represented  fay 
the  engine  exhaust  alone.  Increasing  the  cooling  flow 
increases  the  losses  in  the  exhaust  duct  and  also  brings  to 
tear  losses  in  the  cooling  duct.  Therefore  the  required 
gain  is  a  minimum  at  zero  cooling  flow  and  increases  with 
increasing  cooling  flew. 

There  must  be  an  intersection  of  the  gain  required  curve 
and  the  gain  available  curve  if  the  system  is  to  operate. 
This  condition  occurs  if  the  gain  available  at  zero  cooling 
flow  is  greater  than  the  gain  required  at  zero  cooling  flow. 
The  intersection  must  also  be  far  enough  to  the  right  to 
provide  the  minimum  cooling  requirement  for  the  load  on  the 
engine.  The  matching  technique  is  to  begin  with  seme 
minimum  cooling  flow  as  specified  fay  the  engine  manufacturer 
ar.d  march  to  the  right  adding  a  small  increment  to  the 
cooking  flow  until  gain  required  equals  gain  available. 

I.  SYSTEM  AHA LI  SIS 

Sections  of  the  intake  and  exhaust  ductwork  will  be 
analyzed  from  node  tc  node  resulting  in  the  pressure  loss 
for  the  section.  The  sections  will  be  called  branches.  A 
node  is  the  starting  or  ending  point  of  a  branch.  The 
fittings  of  a  branch  will  be  entered  into  the  program  in  the 
sequence  encountered  by  the  flow  along  a  branch.  A  node  is 
an  entry,  diverging  wye,  fan,  the  gas  turbine  engine  (not  to 
be  confused  with  the  engine  enclosure) ,  convergent  wye,  or 
an  exit.  Figure  2.6  snows  the  six  resulting  schematic 
representations  of  a  gas  turbine  installation  and  the  varia¬ 
tions  of  cooling  flow  available.  The  numbered  dots  are  the 
nodes.  Node  1  is  always  the  main  inlet  entrance.  Node  3  is 


Hodule  Cooling  Eductor  Scheaatic 


MODULE 


Figure  2.5  Eductor/System  Interface. 
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always  the  engine.  Node  4  is  always  tne  cooling  fan.  Node 
6  is  always  the  main  exhaust  exit.  Node  2  say  ce  either  an 
independent  entry  for  the  cooling  flow  or  the  branch  loca¬ 
tion  wnere  the  cooling  flow  diverges  iron  tne  combined 
inlet.  Node  5  may  be  either  an  independent  exit  for  tne 
cooling  flow  or  the  junction  of  cooling  flow  with  the  engine 
exhaust.  Ihe  hashed  area  is  the  engine  and  the  iarger 
rectangle  represents  the  engine  module  wnich  surrounds  tne 
engine  and  is  a  fitting  in  the  cooling  flow  branch.  The 
tranches  are  designated  by  the  node  number  at  tne  begining 
and  end  of  the  branch.  The  reader  should  refer  to  the 
user's  manual  for  a  complete  description  of  entry  of  the 
fittings  into  the  program. 

The  system  in  figure  1.  1  would  be  a  class  three  system. 
It  nas  the  cooling  flew  branching  off  the  mam  inlet  (diver¬ 
gent  wye)  and  joining  the  main  exhaust  near  the  exhaust  exit 
plane  of  the  engine  (convergent  wye).  It  also  has  a  fan 
installed  which  differentiates  it  from  the  class  five 


Figure  2.6  System  Arrangements  and  Their  Classification 


The  basic  procedure  for  system  analysis  is  to  assume 
enough  flow  and  loss  information  to  proceed  with  the  anal¬ 
ysis  and  check  the  assumptions  witn  continuity  of  pressure 
at  the  nodes  with  each  iteration.  If  tne  pressures  do  not 
match,  new  assumptions  are  made  based  on  the  current 
performance  and  the  iteration  is  continued  untii  convergence 
is  achieved. 

With  six  different  types  of  systems  to  match,  six 
different  schemes  must  be  implemented  in  the  computer  code 
to  handle  overall  system  matching.  bach  scheme  must  be 
tailored  to  nandie  the  expected  components  that  make  it 
different  from  any  other  system.  For  example,  system  six 

has  lo  cooling  fan  and  system  one  does.  System  one  reeds  to 

consider  the  fan  and  system  interface  but  system  six  does 
not.  Arpendix  A  is  the  complete  program  listing.  Appendix 
3  contains  a  flow  chart  of  the  most  complex  system  ir.  the 
program,  system  three,  and  incorporates  all  possible 
component/system  interfaces. 

J.  TOTAL  f  BESS  ORE  GRADIENT 

The  total  pressure  cnan ges  represent  the  energy  require¬ 
ments  of  the  system.  Total  pressure  losses  in  the  intake 
and  exnaust  ducts  are  inputs  to  tne  engine  performance 

subroutine  in  the  program  and  are  used  to  determine  the 

operating  parameters  of  the  engine.  Fan  and  system  matching 
is  accomplished  with  the  total  pressure  requirement. 
Therefore  total  pressure  gradients  in  tne  ductworx  are  most 
important  to  analysis.  Measurement  on  tne  other  hand 
usually  produces  the  static  pressure  gradient.  Ihe  static 
pressure  at  a  point  is  less  than  the  total  pressure  at  the 
point.  Figure  2.7  shows  a  typical  representation  of  the 
pressure  changes  during  flow  in  a  simpLe  duct.  Losses  in  a 
duct  are  due  to  the  irreversible  transformations  of 


mechanical  energy  into  neat  and  the  losses  are  used  to  plot 
the  total  pressure  grade  line.  Note  tnat  some  fittings  such 
as  diffusers  and  contractions  cause  a  change  ir.  the  static 
pressure  guite  different  from  the  cnange  in  total  pressure. 
This  is  a  result  of  a  change  in  the  velocity  pressure 
tnrougn  a  variable  area  fitting.  Tne  sample  program  output 
presented  in  the  user's  manual,  appendix  C,  car.  be  used  to 
produce  similar  plots  cf  the  pressure  grade  line. 


VELOCITY  PRESSURE  (PV) 


III.  PROS  BAM  PROCEDURES 


A.  GENERAL 

Ice  purpose  of  the  program  prepared  for  this  study  is  to 
translate  the  geometry  of  a  gas  turbine  installation 
including  inlet,  exhaust,  and  cooling  ducting  into  a  one- 
dimensional  problem  to  calculate  tne  system's  frictional  and 
dynamic  resistance  to  air  flow  and  solve  tne  problem  for 
various  operating  conditions.  Tne  solution  will  include 
engine  performance  parameters  such  as  specific  fuel  consump¬ 
tion,  turbine  inlet  temperature,  and  mass  flow  rates. 
Additionally  a  summary  of  the  duct  system  performance  is 
given  by  pressure  losses  for  each  component  and  a  summary  of 
branch  losses.  Cooling  air  flow  is  predicted  by  matching 
the  system  and  tne  installed  fan  or  module  eductor. 

Interactive  code  is  utilized  for  ail  program  inputs. 
Any  number  of  fittings  and  combinations  of  fittings  may  be 
selected  to  represent  tne  user's  current  design.  The  system 
in  figure  1.1  can  be  represented  by  fittings  chosen  from  tne 
menu.  About  30  selections  from  tne  menu  would  be  required 
to  model  the  system.  The  type  and  number  of  selections 
depends  on  the  system's  configuration  and  complexity.  Each 
fitting  may  have  from  one  to  seven  questions  posed  interac¬ 
tively  to  establish  the  required  geometry  inputs.  With  tne 
geometry  known  the  program  computes  areas  and  coefficients 
necessary  to  perform  the  analysis.  This  data  is  stored  in  a 
rile  called  duct  data  and  may  be  saved  for  future  program 
runs  where  geometry  input  is  not  required.  The  operating 
point  is  defined  upon  input  of  ambient  temperature  and  pres¬ 
sure,  humidity,  horsepower,  and  power  turbine  speed.  When 
combined  with  the  duct  data  file  the  problem  may  be  solved. 


B.  1 1TEBACTIV  E  CODE 

Interactive  code  allows  the  user  to  sit  at  a  computer 
terminal,  access  a  desired  program,  specify  inputs  by  typing 
at  the  terminal  Iceyloard,  and  execute  the  program.  All 
inputs  are  requested  by  statements  appearing  on  the  terminal 
screen.  Resulting  output  is  written  to  tne  user's  files 
which  may  be  viewed  at  the  terminal  or  sent  to  the  printer. 
Tne  interactive  mode  or  operation  is  especially  valuable 
because  it  allows  the  user,  by  modifying  selected  input 
values,  to  quickly  evaluate  the  effects  of  changes  to  an 
existing  or  contemplated  design.  Modification  of  a  system 
is  accomplished  interactively  within  tne  editor  portion  of 
the  program.  The  editor  offers  the  anility  to  cnange  a 
fitting.  For  example,  a  mitered  round  elbow  could  be  modi¬ 
fied  to  add  cascaded  turning  vanes  or  a  different  elbow 
substituted  entirely.  Also  offered  is  the  anility  to  add  or 
delete  a  fitting.  The  addition  option  does  not  allow  the 
user  to  add  a  new  first  fitting  to  a  branch,  however  one  may 
be  added  anywhere  else. 

The  most  important  consideration  in  writing  an  interac¬ 
tive  computer  program  is  what  appears  on  the  screen  and  how 
it  appears.  Requests  for  inputs  are  in  English  rather  than 
engineering  jargon.  Onits  are  ail  in  the  English  system. 
All  lengths  are  in  feet,  etc.  Axl  logical  cnoices  are 
accomplished  by  entry  of  one  better,  the  first  letter  of  the 
cnoice.  For  example,  "¥"  is  the  reply  for  yes.  All  logical 
choice  replies  nr-  irde.ce.tee.  sitni:.  pure:. thesie  ct  the  cri 
of  the  question.  Should  the  user  not  use  one  oe  the  choices 
indicated,  the  question  will  be  repeated  until  a  proper 
response  is  given.  Default  values  are  avaixanle  for  many 
circumstances  to  minimize  the  input  effort.  A  default  is 
not  available  rv  simply  depressing  the  return  key.  The  user 
must  elect  default  values  by  a  lo3ical  cnoice.  For  example 
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the  Hamilton  Standard  rilter  system  installed  on  tne 
Spruance  class  destroyer  is  available  as  a  deraalt  tor  the 
r  x  x  L  e  r  «.  x  b  t xn g  •  .. .. c  uScir  3  tittts  1 1. 1  s  y  ar. s  ■  e  c  ^  r y  a. i ii  Ua — 

txvely  tc  a  question  asking  if  tr.e  user  « o a  1 1  lixe  to  :s<r 
the  def-Jlt  filter  system. 

C.  CTHEE  PR03RAH  FEATURES 

Another  consideration  in  interactive  computer  programs 
is  tne  practice  of  "user  proofing"  tne  inputs.  Tn  otner 
words,  an  interactive  computer  program  sr.ouxd  not  terminate 
execution  (i.e.  , "crasn")  if  an  iaprorer  input  value  is  inad¬ 
vertently  defined  by  the  user.  On  numerical  and  logical 
input  two  features  are  incorporated  to  protect  input  tc  the 
program.  First,  read  statements  ar=  protected  witr  error 
and  end  of  file  detection.  A  rrohlem  with  input  .-.ere  is 
handled  by  asking  the  user  to  re-enter  the  value.  On 
numerical  input  if  it  happens  again  on  tne  same  yuestior  tne 
program  stops  execution.  Secondly,  if  an  incorrect  number 
is  properly  defined  to  the  program  in  tne  geometry  input 
phase,  the  user  is  offered  one  last  chance  to  re-enter 
correct  fitting  data  if  the  user  realizes  his  mistake  before 
he  is  asked  if  he  wants  to  load  tne  data  for  the  fitting. 
Tne  user  is  assisted  here  by  a  check  for  are  i  continuity 
from  one  fitting  to  the  next.  A  warning  is  provided  if 
continuity  is  not  maintained.  Electing  not  to  load  a 
fitting  brings  the  user  cacx  to  tne  menu  with  the  program 
ready  to  accept  a  choice  of  fittings  for  us<=  instead  of  the 
erroneously  entered  fitting. 

The  program  is  modularized  oy  tne  extensive  use  of 
sirrcutmes.  Modularization  facilitates  program  improve¬ 
ments  ry  allowing  tne  upgrade  and  replacement  of  individual 
subroutines.  This  is  a  difficult  procedure  to  do  if  common 
hiocks  are  used.  Tr.erefore  common  blocks  have  ceen 
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IV.  RESOLTS  AND  R2C0NMEN DATION 3 


A.  GENERAL 

It  is  new  possible  to  analyze  system  performance  cf  ar. 
ordinary  marine  3as  turbine  installation.  Prior  to  tne 
de  ve  iopnent  of  this  program  s  ubsecti  ons  of  tne  system  x-.rs 
analyzed  and  their  interaction  was  negxectei.  la.s  ax  i  not 
provide  serious  errors  in  tne  estimation  of  engine  perrorn- 
ar.Cc  but  it  did  not  provide  complete  xmormation  on  sy.-5ten 
performance.  In  particular,  the  prediction  of  cooli..  :^o.' 
was  not  accurate.  This  was  partic  a.ari  ly  acute  vr.e.n  t..e 
system  ,tn..e.  a  iccuie  tractor. 

The  p-oces  <=:  of  manually  assigning  a  resist  ince  coeffi¬ 
cient  to  a  fitting  has  been  eliminated.  Now  it  is  possible 
for  the  computer  program  to  analyze  the  geometry  of  most 
fittings  rapidly  and  apply  the  correct  resistance  coeffi¬ 
cients  for  tne  one-dimensional  analysis  without  the  user 
looking  up  any  correlations. 

The  program  flexibility  is  demonstrated  by  the  ability 
to  guickly  change  input  parameters  and  analyze  a  system  at 
any  operating  point.  Previous  methods  analyzed  components 
at  full  power  and  then  used  a  proportionality  model  wnere 
losses  were  proportional  to  the  sguare  of  tne  engine  air 
mass  flow  rate.  This  method  consistently  under-estimates 
duct  losses  at  low  power  because  it  does  not  take  into 
account  the  variation  of  cooling  flow  provided  with  an 
installed  fan  or  module  eductor.  At  low  power  the  cooling 
flow  can  be  a  significant  contributor  to  duct  losses  and  the 
previous  method  can  net  predict  tnis  contribution. 


B.  LIMITATIONS 


It  should  be  emphasized  that  any  one- dimensional 
analysis  does  not  handle  flow  distortion  well.  Suspected 
problems  in  this  area  are  still  best  dealt  with  by  tne  use 
or  model  studies.  The  limitation  of  a  one-di mensionax  model 
is  that  a  fitting's  pressure  loss  may  be  known  for  uniform 
flow  distribution,  tut  is  is  difricalt  to  predict  the  loss 
with  distorted  flow.  It  is  known  however  that  tne  distorted 
flow  situation  will  have  a  larger  pressure  loss,  but  now 
much  is  not  easily  determined.  A  one-dimensional  analysis 
may  point  to  problems  with  flow  distortion.  The  program 
recognizes  the  potential  for  flow  distortion  on  certain 
fittings  such  as  diffusers  and  points  out  this  potential. 
Ir  a  fitting's  pressure  loss  can  vary  significantly  with 
distortion  of  flow  and  the  one-d+mensional  analysis  has 
computed  a  large  pressure  loss,  the  user  should  flag  the 
fitting  for  futher  study  by  model  testing  as  the  pressure 
loss  has  probably  been  underestimated. 

Not  all  possible  duct  designs  can  have  their  fittings 
modeled  by  the  program.  Some  fittings  will  be  available 
from  the  program  menu  and  others  will  ne  similar  to  fittings 
listed,  tut  not  exactly.  Then  there  are  some  wnich  may  not 
be  listed  at  all.  If  the  fitting  is  close,  it  may  be  used 
and  expected  to  give  reasonable  results.  If  tne  fitting  is 
not  listed  then  the  user  must  provide  the  resistance  coeffi¬ 
cient  by  using  the  ''fitting  not  listei"  cnoice.  Tne  data 
for  this  entry  may  come  from  a  published  correlation  or  from 
tests  performed  on  similiar  installa tions.  It  is  in  the 
area  of  correlations  where  most  benefit  can  be  gained  by 
program  modification. 
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C.  P.  ECO  HHENDAT  IONS 

The  program  currently  runs  as  a  stand  alone  program,  Lut 
some  increased  utility  may  be  realized  by  incorp  oratia3  some 
or  the  subroutines  in  otner  programs  whicn  would  then  input 
a  snip’s  horsepower  and  R?!*  requirements  for  an  Operating 
profile  instead  of  point  by  point  user  input. 

Che  General  Electric  LM2500  engine  is  currently  the 
engine  within  the  program.  Tne  engine  performance  in  tne 
program  is  built  by  table  interpolation  of  tne  published 
performance  data.  General  Electric  also  orders  a  program 
wr.ich  provides  performance  data  and  it  is  recommended  that 
tr.is  program  be  substituted  for  tne  engine  subroutine 
currently  ir.  the  program.  This  will  eliminate  any  doubts 
about  engine  performance  predictions  and  make  the  parameters 
more  officai.  Also  the  General  Electric  program  covers  the 
complete  performance  map  of  the  engine  wnereas  the  engine 
subroutine  used  in  this  analysis  was  Unite!  to  22,  50? 
horsepower  maximum.  Inere  is  stil*  a  little  power  left 
beyond  this  value  and  the  program  can  not  currently  operate 
there.  Another  modification  concerning  the  engine  is 
improving  the  module  temperature  out  model  used  in  the  FI  ID? 
subroutine.  Che  model  used  produces  reasonable  results  but 
is  not  based  on  test  data  but  or.  operator  experience. 

The  biggest  improvement  in  program  perrormar.ee  and 
utility  can  be  made  by  the  incorporation  of  improved  fitting 
flow  resistance  correlations  of  test  data.  -lodels  and  full 
scale  systems  should  be  instrumented  to  provide  duct  pres¬ 
sure  loss  data  to  check  tne  program’s  analysis.  "here  tne 
program  prediction  is  not  accurate  new  fitting  correlations 
should  re  developed.  Potential  fittings  ror  improves  models 
are  louvers,  silencers,  diffusers  with  distorted  flow,  junc¬ 
tions  and  wyes  (especially  where  eductor  action  is  desired)  , 
and  toiler  tube  bundles.  w'itn  sufneient  data  tr.ese 
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fittings  could  be  modeled  better  and  more  simply.  Ihe 
overall  objective  is  to  increase  b ota  tat  utility  and  accu¬ 
racy  of  the  program  analysis. 
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APPENDIX  A 
PROG HAM  LISTING 


ANALYTIC  MODEL  OF  A  GAS  TURBINE  INSTALLATION  ON  BOARD  A  SHI? 

PROG  FAN  WRITTEN  EY  STEPHEN  M.  SZZELL,  LCDS,  USN 
VEHSICN  1.0  DATE  HABCH  JO,  1964 

PU8P0SE:  TO  ANALYZE  THE  DUCTING  AND  GAS  TURBINE  INSTALLATION 

AS  SIGHT  BE  INSTALLED  ON  A  SHIP.  INPUT  DUCI  3  EC.1ETR  Y . 
AMBIENT  CONDITIONS,  AND  POWER  SETTING  TO  GET  PERFORMANCE 
PARAMETERS. 


THIS  IS  THE  MAIN  CONTROL  PROGRAM.  ITS  SOLE  PURPOSE  IS  TO  BRANCH 
TC  THE  AREA  OF  THE  PROGRAM  YOU  NEED.  IF  YOU  ARE  ANALYZING  A  NEW 
SYSTEM  YOU  WILL  NEED  TO  BUILD  A  DATA  FILE  FOR  THE  SYSTEM.  YOU 
WILL  BE  DIRECTED  TO  THE  BUILD  SUBROUTINE.  IF  YCU  WANT  TO  MAKE 
SOME  CHANGES  TO  A  SYSTEM  YOU  WILL  GO  TO  THE  EDIT  SUBROUTINE. 

WHEN  YOU  HAVE  A  DATA  FILE  YOU  LIKE  YOU  WILL  NEED  TO  GO  TO 
THE  COMPUTE  SUBROUTINE.  IN  THE  COMPUTE  SUBROUTINE  YOUR  DATA  FILE 
WILL  BE  READ  AND  THEN  YOU  WILL  BE  ASKED  QUESTIONS  TC  ESTABLISH 
THE  OPERATING  POINT.  THEN  THE  PROGRAM  WILL  COMPUTE  THE  OPERATING 
PARAMETERS  YOU  NEED  AND  OUTPUT  THEM  TO  THE  OUTPUT  FILE. 

NC  COMPUTATIONS  ABE  DONE  IN  THE  MAIN  CONTROL  PROGRAM. 

SUBROUTINES  CALLED:  BUILD,  EDIT,  COMPUT,  AND  FRTCMS 


SCREEN  AT  YOUR  TERMINAL  SO  THE  WRITE  FORMATS  DON’T  GET  CHOPPED 
UP.  IF  Y3UE  SYSTEM  WES  SCI  HAVE  THIS  CAPABILITY  YOU  WILL  HAVE 
TO  SUBS  HI UT  E  AN  APPROPRIATE  CODE  TO  ACCOMPLISH  THE  SAME  IHING3. 
THIS  NOTE  APPLIES  TO  THE  ISM  3033  COMPUISR. 

»•••*••**•*•••*•*•••••••**«••**•••••••••••••••••••*••••••••••*••*< 

INTEGER  ANS, YES.NO,CO MPUT.EDIT. QUIT 

DATA  YES/’  Y’/.  NO/’  N’  /  ,COM?UT/' C  V,  tDIT/’  E’/,QUII/’QV 
KPS  IBB  3033  MAIN  F8AHE  COHPUTER  PROGRAM  REQUIREMENTS 


HERE  IS  WHERE  I  SET  UP  THE  FILE  DEFINITIONS  USING  THE  LIBRARY 
SUBROUTINE  "FR  TCHS".  THERE  ARE  NO  OTHER  FILEDEF’S  REQUIRED. 

READING  TERMINAL  INPUT 

CALL  FRTCMS  !' FILEDEF  ',’05  ',’ TERMINAL’ ) 

WRITING  TO  THE  TERMINAL 

CALL  FRrCMS  (’FILEDEF  ',’06  • , ' TERMINAL ’ 1 

STORAGE  FILE  FOR  THE  DUCT  GEOMETRY  DEPENDENT  VARIABLES 

CALL  FRTCMS  ('FILEDEF  ’,'08  ’,'DISK  ’,'DUCT  ’, 

♦  'DATA  'f 

STORAGE  FILE  FOR  THE  PERFORMANCE  DATA  OUTPUT 

CALL  FRTCMS  ('FILEDEF  '.’04  ','DI3X  •, ’OUTPUT  ’, 

♦  'DATA  •} 

CALL  FRTCMS  ('CIHSCRB  »)  4 

INTRODUCTION.  IS  THERE  A  DUCT  DATA  FILE  ’?? 

10  WRITE  (6,600) 

EVERY  READ  IS  PROTECTED  AGAINST  A  NULL  ENTRY  AND  AN  ERROR  IN 
INPUT.  THIS  IS  ACCOMPLISHED  »IIH  "END» XX, ERR = XX" .  YOUR  SYSTEM 
MAY  NOT  HAVE  THIS  CAPABILITY,  IN  WHICH  CASE  DELETE  IT  OB 
SUBSTITUTE  AND  EQUIVALENT  CODE. 


READ  (5,601t2NC*12LE8R*12) 
CALL  FRrCMS  ( ' CL8SCBN  •} 


nnnnnnnnnnnnnnnonnnnnnnnnnnnnndnnnnnn 
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EVERY  QUESTION  REPLY  IS  CHECKED  TO  SAKE  SURE  ONE  OF  THE  ALLOWED 
RESPONSES  MAS  USED,  I?  NOT  THE  USES  IS  MAfct/ED  AND  ASKED  TO 
ANSHES  WITH  ONE  OF  THE  CORRECT  RESPONSES. 
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IF  ((ANS 
at  MIN 

WRITS 

GO  TO 

20 

CONTINUE 

30 

32 

40 

'50 

'60 

62 

70 

'30 

'90 

92 

100 

'no 


999 

600 


|6,b02) 

IF  (A NS. SQ. YES)  SO  TO  30 
IF  (ANS. 20.NO)  SO  IC  50 

DO  YOU  WANT  TO  COflPOTE  OR  EDIT  THE  DATA  FILE  ????? 
WRITE  (6,6  03) 

HEAD  (5,oQ  1, ENE*32,ER R=32)  ANS 

IF  l^ANS. EQ.COSPOl) .OR. (ANS.2Q. EDIT) )  SO  TO  40 

WHITE  (6,602) 

SO  TO  io 
CONTINOE 

IF  (ANS.  EQ.COSEUT)  SO  TO  80 
IF  (ANS.  EQ. EDIT)  SO  TO  110 

CALL  BUILD 

WRITE  (6,604) 

HEAD  (5,o01,ENC*62,EHH*6  2)  AN'S 
CALL  FRITHS  (’CIRSCRN  •) 

IF  ((ANS. Efi. COHEUT).OH. (ANS.2Q. JUIT) )  30  TO  70 
R  E  B  IN  D  3 
WHITE  (6,602) 

GO  TO  60 
CONTINUE 

IF  (ANS. EC.COHEUT)  GO  TO  30 
IF  (ANS.EQ.DUIT)  SO  TO  999 

CALL  COHP 

WRITE  (6,6  05) 

HEAD  (5.60  1,ENE*92.SHB*92)  ANS 

IF  (j^ANS.  S^.EDII)  .OR.  (ANS.EQ.QOIT)  )  SO  TO  100 

-^6.602, 


WRITE 
GO  TO 
CONTINUE 
IF  (ANS.  20. EDIT 
(ANS.  EQ. 


IF 

CALL  ED 

GO  TO  60 
CONTINUE 


.QUIT 


GO  TO  1  10 
GO  TO  999 


FOEJ1AI  (’  A  ONE-DIHE  NSIONAL  HOD  EL  FOR  THE  SYSTES  PEEFO  RHANCS’  / 
•  OF  A  SASTNE  GAS  TURBINE  I N S TA LLA TT CN » / / 


60  1 
602 


♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦  « 


OPTIONS:  BUILD 

EDIT  OR 
COSPUT 

HETHOD 


A  NARINE  GAS  TURBINE  INSTALLATION’// 
BY  LCDH.  STEPHEN  N.  EZZELL’// 
VERSION  1.0  S ARCH  30*  1964’/ 


U  DAWd  I*  V  UdAtVil  J  V  I  I  PWW  / 

A  DATA  FILE  SEFE  ESEN  TINS  THE  DUCT  SYSTES’/ 

H  CHANGE  THE  DUCT  DATA  FILE  ’/ 

E  SYSTES  PESFORN ANCS  •/ 

:  INTERACTIVE  INPUT  OF  DATA,  BRANCHING  TO  DESIRED’/ 

OPTION  BY  ANSWERING  QUESTIONS’// 

NING,  TWO  NULL  ENTRIES  ON  HUS ERICA L  INPUT  WILL  ***’/ 


FOBS AT 
FOBSAT 


***  WAR 

***  KILL  THE  PROGaAS.  *•*’/// 

FIRST  QUEST ICNj’/ 

DO  YOU  HAVE  A  DATA  FILE  OF  DUCT  FITTINGS 
-  |A1) 


(Y/N)?’) 

YOU  HOST  ENTER  THE  LETTER  INDICATED  IN  THE  BRACKETS’/ 
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♦  •  FOR  A  PROP  EE  ANSW2R  !i  !!!!') 

603  FORMAT  (/•  DO  YOU  KA  NT  10  EDIX  I  HE  FILE  OR  USE  IT  FCE  COMP  <11  ATI 

♦  (E/C)  ?•) 

604  FCcMAT  ('  DO  YC'J  WANT  TO  COMPUTE  WITH  THE  FILE  OS  2UIT  (C/C)?') 
o05  FORMAT  ('  DO  YOU  WANT  TO  EDIT  THE  DUCT  DATA  FIDE  OS  wUIT  (E/Cl? 

STOP 

END 


ON 

') 
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3UILD  SU3R0UTIN  E ;  INPUTS  GEOMETRY  OF^OUCTj  OUTPUTS  DUCT  DATA 

TC  GET  THIS  GOING  THE  DUCT  SYSTEM  YOU  ARE  WORKING  WITH  NEEDS  TO 
3E  CIASSIFIED.  SYSTEM  SUE  30UTI NE  DOES  THIS.  WITH  THE  CLASS  OF 
THE  SYSTEM  KNOWN,  IDENTIFICATION  NUMBERS  ARE  ASSIGNED.  THE  MENU 
IS  CALLED  UP  AND  FITTINGS  ARE  ENTERED  FOR  THE  SYSTEM  TO  A  FILE 
NAMED  DUCT  DATA.  THE  DUCT  DATA  FILE  WILL  3E  SERIALIZED  31  THE 
USER  WITH  A  SIX  DIGIT  NUMBER  Of  THE  USER'S  CHOICE. 

VARIABLES:  WKI  AND  WKR  ARE  TRANSPORT  ARRAYS  USED  TC  FILL  THE 

SYSTEM  ARRAYS  WORKI  AND  WCRKR.  WORKIJNNN.1)  IS  THE 
ID  NUMBER,  AND  WORKI(NNN,2)  IS  THE  FITTING  TYPE. 

WORKR  STORES  FITTING  DATA  SUCH  AS  LENGTHS,  AREAS,  AND 
RATIOS. 

SUBROUTINE  30110 
REAL  WKR, WCRKR 

INTEGER  SORL, WKI, WORK I, TERM, TYPE, BRANCH, FIT  ID, GEOS, DUMMY,. M, CLASS 
DIMENSION  GEOM  (6)  ,WKI  (2)  ,WKfi(4)  ,  WORKI  (200,  2)  ,  WORKR  (200 , 4) 

INST  FINDS  OUT  IF  YOU  WANT  -ONS  OR  SHORT  INSTRUCTIONS 

CAIL  INST (SORL, TERM) 

SYSTEM  CLASSIFIES  THE  SYSTEM  TO  ONE  OF  SIX  POSSIBLE  SYSTEMS 

CALL  'SYSTEM  (SC  5L,CLAS  SI 
GO  10  (1,2, 3,4, 5, 6), CLASS 

GECM  IS  THE  IDENTIFICATION  NUMBER  TO  BE  USED  WITH  THE  FITTING. 

ID  IS  BROKEN  UP  INTO  FOUR  PARTS.  TEE  FIRSI  DIGIT  IS  THE  SYSTEM 
CLASSIFICATION,  1,2, 3, 4. 5,  03  6.  THE  NEXT  TWO  DIGITS  ARE  THE 
STARTING  NODE  AND  IHE  FINISHING  NODE  OF  THE  3FANCH.  THE  NEXT 
DIGIT  IS  THE  FLOW  III  THE  3RAJCH,  ZERO  IS  CCCLISG  FLOW,  ONE  IS 
ENGINE  FLOW.  TWO  IS  COMBINED  COOLING  AND  ENGINE  FLOW.  THE  LAST 
TWO  DIGITS  ARE  FOR  THE  ORDER  NUMBER  OF  THE  FITTING  IN  THE  BRANCH. 

EXAMPLE:  113101  SYSTEM  ONE,  NODE  ONE  TC  THREE,  ENGINE  FLOW, 

FIRST  FITTING  IN  BRANCH 


GECM 

GECM 

GECM 

GECM 

ERANC 

CAIL 

WRITE 

GO  TO 

GECM 

GECM  i 

GECM  ' 

GECM  i 

GECM  i 

ERANC 

CAIL 

WRITS 

GO  TO 

GECH 

GECM  i 

GECM 

GECM 

GECM 

GECM 

ERANC 

CALL 

WRITS 

GO  TO 


1  >1  13101 

2  =124001 
3=136101 
u  =145001 

H=4 

FF.TCMS  CCIRSCRN  •) 

(6  j60  0) 

1)  =2  12201 

2  =223131 

3  =224001 

4  =236101 

5  =245001 

4L5 

FF.TCMS  ( '  CLRSCSN  «) 

(6jO0  1) 

11  =312201 
I)  *323101 
3  *3  24031 


6  =356201 
H*6 

FF.TCMS  ( •  CIRSCRN 

(6j  60  2) 
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GECM  1)  =  4  131 01 

gscm  ,'z  =424001 
GECM  3  =435101 
GECM  4  =445001 
GEC.1'  5  =  4  5  o20  1 
EH  ANCH=5 

CALI  FRICMS  (•  CLRSCRN  •) 

WRITE  (6.  60  3) 

GO  TO  15 
GECM  11  =  5  12201 

m  bum 

GECM  •.1  =  53  5101 
GECM  51  =  556201 
E?.ANCK=5 

CALL  FRTCMS  ( • CLRSCRN  •) 

WRITE  (6.  604) 

GO  TO  10 
GECM (11  =  6  13101 
GECM  |  2)  =6  25001 
GECM ( 3) =63  510 1 
GECM]4)  =656201 
BR  ANC  H=4 

CALL  FRTCMS  ('  CLRSCRN  •) 

WHITE  (6,  o0  5) 

CO  NT I NOS 

a=  o 

WRITS  (6,606) 

HE ADI  IS  AN  INTEGER  READ  SO3RO0IINE  10  PROTECT  THE  PROGRAM  FROM 
CRASHING  ON  NOIL  INPOT  GR  ERROR  INPJT.  IT  ALSO  ALLOWS  FREE 
FCFMAI  INPUT. 

CALL  RSA3I  (DUMMY, 5) 

CALL  FHTCMS (' CLRSCRN  •) 

NOW  EACH  BRANCH  WILL  BE  FILLED  OP  WITH  THE  FITTINGS.  BRANCHES 
ARE  TAKEN  IN  NOMERICALLI  ASCENDING  ORDER. 

DO  40  1=  1  ,  BRANCH 

CALL  MENU  (3, TERM. TYPE.GEOM (I) ) 

THE  MENU  CHOICES  ARE  0  THRU  3t> ,  CHANGE  THE  NUMBER  OF  FITTINGS 
AND  YOU  MUST  CHANGE  THE  FOLLOW  £ NG  I?  CONDITION  ACCORDINGLY 
IF  ((TYPE.  GE.O) -AND.  (TYPE. LI.  31)  )  GO  TO  30 
CALL  FHTCMS ('CLRSCRN  ') 

WRIT  E(6 . 607) 

GO  TO  23 

EERO  MEANS  NO  MORE  FITTINGS  THIS  BRANCH 
IF  (TYPE.  EQ.O)  GC  TO  40 
M  =  M  ♦  1 

A  FITTING  HAS  BEEN  SELECTED,  NOW  GO  TO  THE  BRANCHING  SUBROUTINE 
TO  ENTEa  THE  FITTING. 


GECM (I) .TYPE, WOHKI, WORKS) 


CALL  SELECT  (H, SOB l, GECM (I) , TY PE, WORKI,  WORKS) 

CALL  FRTCSS  ('CLRSCRN  ') 

GECM(I) =GEOM  I) +1 
GO  TO  20 
CONTINUE 

ALL  THE  FITTINGS  HAVE  SEEN  ENTERED  AND  THE  DATA  FILE  IS  ABOUT 
TO  BE  WRITTEN. 

CALL  SOBOOT (WORKI, WOR KR,M) 

FORMAT ('  SYSTEM  IS  CLASS  ONE,  SEPARATE  ENG T  NE/CC CLING  FLOWS.'/ 
♦'  YOU  WILL  BE  ENTERING  FITTINGS  FOR  FOUR  BRANCHES.'/ 

♦'  1.  ENGINE  INLET  TO  THE  ENGINE.'/ 

2.  COOLING  INLET  TO  THE  COOLING  FAN.'/ 

♦'  3.  ENGINE  EXHAUST  10  THE  ATMOSPHERE. ' / 

♦  '  4.  COOLING  FAN  EXHAUST  TO  THE  AIMCSP H EF.E ,  VIA  GT  MOGULS.') 
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FORMAT  (•  SYSTEM  IS  CLASS  T70,  COMBINED  INLDT  FCR  ENGINE  AND  '/ 

♦  '  COOLING  FLO  4  AND  SEPARATE  FLOWS  FOB  ENGINE  EXHAUST  AND  MODULI'/ 

COOLING  HOT  EXHAUST.  YOU  SILL  3E  ENTEEING  FITTINGS  FOR  FIVE'/ 

♦  •  BRANCHES.  ' / 

♦'  1.  COMBINED  INLET  TO  THE  COMBINED  SECTION  OF  A  DIVERGENT  AYE 

♦  .'/•  2.  MAIN  SECTION  OF  A  DIVERGENT  BYE  TO  THE  ENGINE.'/ 

♦'  3.  BRANCH  SECTION  OF  THE  DIVERGENT  AYE  TO  THE  COOLING  FAN.'/ 

♦'  «.  ENGINE  EXHAUST  10  ATMOSPHERE.  V 

♦'  5.  COOLING  FAN  EXHAUST  TO  THE  ATMOSPHERE  VIA  GT  MODULE. ') 

FORMATS  SYSTEM  IS  CLASS  THREE,  COMBINED  INLETS  AND  EXHAUST  •/ 

♦'  FLOWS  FOR  THE  ENGINE  AND  MODULE  COOLING.  A  COOLING  FAN  IS'/ 
INSTALLED.  YOU  BILL  BE  ENTERING  FITTINGS  FOR  SIX  BRANCHES.'/ 

♦'  1.  COMBINED  INLET  TO  THE  COMBINED  SECTION  OF  A  DIVERGENT  BYE 

♦.'/'  2.  MAIN  SECTION  OF  THE  0I7EH3ENT  AYE  10  THE  ENGINE.'/ 

♦'  3.  BRANCH  SECTION  OF  THE  DIVERGENT  BYE  TO  THE  COOLING  FAN.'/ 

♦'  4.  ENGINE  EXHAUST  TO  MAIN  SECTION  OF  A  CONVERGENT  BYE.'/ 

♦'  AN  EDUCTOR  INSTALLED  AT  THE  EXHAUST  PLANE  OF  THE  ENGINE'/ 

IS  CONSIDERED  TO  BE  A  CONTRACTION  FOLLOWED  8Y  THE  MAIN'/ 
SECTION  OF  A  CONVERGING  AYE  FOR  THE  PURPOSES  OF  THIS  •/ 

♦'  PROGRAM.'/ 

♦'  5.  COOLING  FAN  EXHAUST  ID  THE  BRANCH  SECTION  OF  A  CONVERGENT 

♦  BYE.  '/ 

6.  COMBINED  SECTION  OF  A  CONVERGENT  BYE  TO  THE  ATMOSPHERE.') 
FORMAT  (•  SYSTEM  IS  CLASS  FOUR;  SEPARATE  INLETS  FOR  THE  ENGINE'/ 
AND  TOOLING  FLOWS,  COMBINED  FLOWS  FOR  THE  ENGINE  EXHAUST  AND*/ 
HOT  MODULE  CCOLINS.  A  COOLING  FAN  IS  INSTALLED. •/ 

ENTER  FITTINGS  FOR  FIVE  3RANCHES. V 

♦  •  1.  ENGINE  INLET  TO  THE  ENGINE.'/ 

2.  COOLING  INLET  10  THE  COOLING  c AN.'/ 

♦'  3.  ENGINE  EXHAUST  TO  MAIN  SECTION  OF  A  CONVERGENT  BYE.'/ 

AN  EDUCTOR  INSTALLED  AT  THE  EXHAUST  PLANE  CF  THE  ENGINE'/ 
IS  CONSIDERED  TO  3E  A  CONTRACTION  FOLLOWED  3Y  THE  MAIN'/ 
♦'  SECTION  OF  A  CONVERGENT  BYE  FOR  THE  PURPOSES  OF  THIS'/ 

♦  ■  PROGRAM.  •/ 

♦'  4.  COOLING  FAS  EXHAUST  TO  THE  BRANCH  SECTION  CF  A  CONVERGENT 

♦  WYE.  '/ 

5.  COMBINED  SECTION  OF  A  CONVERGENT  BYE  TO  THE  ATMOSPHERE.') 
FORMAT  (’  SYSTEM  IS  CLASS  FIVE,  COMBINED  INLET  AND  EXHAUST  Fi-OW.'/ 
AN  EDUCTOR  SYSTEM  IS  USED  TO  PUMP  COOLING  AIR.'/ 

♦'  ENTER  FITTINGS  FCR  FIVE  BRANCHES. '/ 

♦'  1.  COMBINED  INLEI  TO  THE  COMBINED  SECTION  OF  A  DIVERGENT  BYE 

♦  .’/’  2.  MAIN  SECTION  OF  THE  DIVERGENT  BYE  TO  THE  ENGINE.'/ 

♦'  3.  THE  ECUCTOR  ONLY,  THIS  PROGRAM  CONSIDERS  THIS  BRANCH  TO'/ 

CONSISI  OF  ONLY  TWO  COMPONENTS,  A  CONTRACTION  AND  THE’/ 

♦'  MAIN  SECTION  OF  A  CONVERGENT  BYE  INSTALLED  AT  THE  EXHAUST 

♦  '/'  PLANE  OF  THE  ENGINE.'/ 

♦'  4.  BRANCH  SECTION  OF  A  DIVERGENT  BYE  VIA  THE  GT  MODULE  TO'/ 

THE  EDUCTOR.  THE  PROGRAM  CONSIDERS  THIS  PABT  CF  THE'/ 
SDUCTCR  TO  3E  THE  BRANCH  SECTION  OF  A  CONVERGENT  BYE.’/ 

♦  '  5.  COMBINED  SECTION  OF  A  CONVERGING  BYE  TO  TH  i  ATMOSPHERE.’/ 

♦  '  I NST AIIATICN  OF  A  WASTE  HEAT  30ILSR  IS  NOT  RECCMEN DED . '  ) 

FORMAT ('  SYSTEM  IS  CLASS  SIX:  SEPARATE  INLETS  FOR  THE  ENGINE'/ 

♦  •  AM  COOLING  FLOWS,  COMBINED  FLOWS  FOR  THE  ENGINE  EXHAUST  AND'/ 
♦'  HCT  MODULE  COOLING.  AN  EDUCTOR  IS  INSTALLED.'/ 

ENTER  FITTINGS  FOR  FOUR  BRANCHES.’/ 

♦'  1.  ENGINE  INLET  TO  THE  ENGINE.’/ 

♦'  2.  COOLING  INLET  TO  THE  EDUCTOR  VIA  THE  GT  MODULE.'/ 

♦'  THE  PROGRAM  CONSIDERS  THIS  PART  OF  THE  EDUCTOR  TO  BE'/ 

THE  ERANCH  SECTION  OF  A  CONVERGENT  WYE.'/ 

♦'  3.  THE  EDUCTOR  ONLY,  THIS  PROGRAM  CONSIDERS  TSIS  ERANCH  TO'/ 

♦'  CONSIST  OF  ONLY  TWO  COMPONENTS,  A  CONTRACTION  AND  THE'/ 

MAIN  SECTION  OF  A  CONVERGENT  BYE  INSTALLED  AT  IHE  EXHAUST 
♦'/'  PLANE  OF  THE  ENGINE.'/ 

♦'  4.  THE  COMBINED  SECTION  OF  A  CONVERGENT  BYE  TC  THE  ATMOSPHER 

♦  E.  •) 

FORMAT  (/ // '  ENTER  DERO  TO  CONTINUE') 

FORMAT {'  YOU  C ID  NOT  ENTER  A  CORRECT  FITTING  ID  NUMBER.') 

RETURN 

END 
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non  o  noonn  nrinnnnnnnnnnnnnnnnnn 


EDITING  5  U3P 03 IINE : 

WITH  THIS  PAST  OF  TSE 
FITTING  TO  THE  TATA  F 
IT  KITH  YOU  WHEN  YOU 
IS  PEBMANENILY  CHANGE 
A  Cl F FES  ENT  FILE  NAME 
DATA"  TD  EDIT.  EACH 
AND  A  NEW  SERIAL  NUNS 
THE  SERIAL  NUNEER  APP 
PESFOSNANCE.  CHANGES 
IN  THE  DUCT  DATA  FILE 
FIRST  COLUNN. 


USED  TO  ALTER  THE  DUCT  DATA  FILE 

PROGRAN  YOU  CAN  CHANGE,  DELETE, 
ILE.  IX  WOULD  3E  HANDY  TC  HAVE  A 
NAKE  THE  CHANGES.  ALSO  THE  DATA 
C,  TO  SAVE  A  COPY,  NAKE  A  COPY  OF 
.  YOU  STILL  NUST  HAVE  A  FILE  NAN 
DUCT  DATA  FILE  IS  SERIALIZED  3Y  T 
ER  CAN  3E  ASSIGNED  TC  THE  CHANGED 
EARS  OF  THE  CCNPUTED  OUTPUT  FILE 

ARE  NADE  3Y  THE  INDEX  NUNEER  OF 
.  THE  INDEX  NUN3ER  IS  THE  NU3BER 


«******»*»*C 

OR  ADD  A  C 
COPY  OF  C 
FILE  IS  C 
IT  UNDER  C 
ED  "DUCT  C 
HE  USER  C 
FILE.  C 

OF  SYSTEM  C 
THE  FIITINGC 
IN  THE 


THIS  SUBROUTINE  DOES  NOT  CHANGE  THE  SYSTEM  CLASSIFICATION. 
TO  GET  A  DIFFERENT  SYSTEN  YOU  NUST  3UILD  IT  WITH  THE  BUILD 
PART  OF  THE  PROGRAN. 


SUEROUTINE  ED 
REAL  A, WORKS 

INTEGER  N, IN DEX.ANS, CHANGE, DELETE, ADD, L, N, S, YES, NC,  WORKI  ,P  ,  Z, 

♦  FITID 

DIMENSION  IN DEX  (200)  ,  WORKR  (200,  4)  ,  WO RKI  (200 , 2) 

DATA  CHANGE/' C'/.DELaTE/'O «/, ADD/1 A •/, YES/' Y • /, N 0/’ N'/ 

READ  (8,600)  SERIAL, N  ' 

DO  10  1=1.  N 

READ  (6,601)  INDEX  (I)  ,  WORKI,  (1,1)  ,WOSKIiI,2)  ,  WORKS  (1 ,  1)  , 

+  WCRKR(I,2),W0SKR(I,5)  ,WOEKH(i,4) 

CONTINUE 
REWIND  3 
WRITE  (6,602) 

READ  (5, 60  3,  2M  D=22 , EH  B=22)  ANS 

IF  ({ANS.  EQ.  CHANGE) -OR  .  (ANS.  20- DELETE)  .OR.  (ANS.  EQ.  ADD)  )  GOTO  30 
REWIND  5 
WHITE  ( 6,  6  04) 

GO  TO  2 0 

IF (ANS. EQ. CHANGE)  GO  TO  40 
I?  ANS. 20. delete!  GO  TO  30 
IF  (ANS. 23. ADD)  g6  TO  150 

FITTING  IS  TO  3E  CHANGED,  A  NEW  FITTING  SUBSTITUTED  FOR  THE  OLD 
WHAT  INDEX  NUMBER,  (1  7?? 


R=22)  ANS 

.  (ANS. SO. DELETE)  .OR.  (ANS.  EQ.  ADD)  )  GOTO  30 


TO  40 
TO  90 
150 


WRITE  (6,605) 

CAIL  REA  J  I  (M ,  5 ) 

DO  YOU  NEED  A  MENU  ?? 
WRITE  (6,o06) 

READ  (5,  oO  3,END*52,EB 
CAIL  FRICKS  ( ' CIBSCRN 
IF  ((ANS.  EC.  YES)  .OR.  ( 

REFIND  5 

WRITS  (6,604) 

GO  TO  50 
CONTINUE 

I?  (ANS.EQ.  YES)  GO  TO 
WRITE  76 , 6  07) 

CALL  SEAil  (TYPE, 5) 

GO  TO  64 


R=52)  ANS 

ANS.EQ.  NO))  GO  10  60 


CAIL  THE  MENU  AND  MAKE  TEE  CHANGE 

CALL  MENU  (0 , 0  ,TYP  2,  W  ORK I  (M  .  1 ) ) 
CALL  SELECTtS.I, WORKI  (M, 1) ,TYPE ,WC 
ANY  MORE  CHANGES  77? 

WRITE  (6.6  08) 

READ  (5,  60  3,  END=69,SR 


ORKI  (K,  1) } 

(M,  1)  ,TYPE , WORKI, WOEKR) 


6=68)  ANS 


nnonnono 


ni 


PE 


63 

73 

C 

c 

30 


IF  (  (ANS. EQ. YES) .05. ( ANS.ES- JO)  )  SO  TO  70 
KEVIN 3  5 
V  R ITS  (6,604) 

GO  TO  66 
CCNTINOE 

IF  (ANS. SQ. YES)  GO  TO  40 
GO  TO  250 

A  FITTING  IS  TC  2E  OEIETED 

VRITE  (6,6  05) 

CAIL  H  *  A  5  I  (M  ,  5 ) 

Ir^N.EQ.  N)  GO  TC  123 

Z=0 

RSKOHK  THE  ID  NOHBERS  AND  RELOAD  THE  FILE 
DO  110  I  =  f1,N 

TEST3  WORK  I  (1*1,1)  -  VORKI  (I,  1) 

IF  (TEST .  GT.  1)  2  =  2  ♦  1 

((TEST.EQ.1)  .AND.  (Z.3Q.3))  GO  TO  90 
VOBKI (I ,  1)*WORKI(T  - 


IF 


90 

100 


110 

120 


130 

132 

140 


VO  8K I  ( I .  1)*VORKI(I*1,  1) 
GO  TO  100 
CONTI NOE 


= VCRKI 
* WCRKR 
=WORKR 
=  WCRKR 


1*1,2) 
1*1,  1) 
1*1,2 
1*1,3 
1*1,4 


VORKI (1,2 
WORKS  1,1 
WORKS , 1,2 
WORKS  1,3, 

KORKR (I,4j =VOSKP 
CCNTINOE 
CCNTINOE 
WRITE  (6,6  09) 

ANY  NOSE  DELETIONS  ?? ? 

WHITE  (6.6  10) 

READ  (5,603, END=132,ESR=132)  ANS 
IF  |^ANS.  E^.  YES) .02.  ( ANS.SQ.NC) )  GO  TO  143 

WRITE  (6.604) 

GC  TO  1 30 
CONTINOE 

IF  (ANS.  SQ. YES)  GO  TO  90 
GO  TO  250 

A  FITTING  IS  TC  BE  ADDED 


150  WRITE 


CALL  H^aSi (3, 5) 

FITID=W0HKi(3,1)*1 

S=N-H 

N=  N*  1 

f=l**1 

OPEN  0?  THE  DATA  FILE  TC  ADD  THE  NEW  FITTING 
DO  160  1  =  1  ,S 

WCRKI (N*1-I,1  *WORKI 
VORKI  H*1-I,2  =MORKI 
WCRKR (N  *1  —  1 , 1  =WORKR 
WORKR ( N*1 -I  , 2  =WOR  KR 
~~  N  *1  -I  ,  3  =W0H  KR 
N*1-I,4  =WCRK5 


160 


170 

180 


WCRKR 
VORKR 
CCNTINOE 
Z=0 

REWORK  THE  ID 
DC  180  I»P 


N-1 , 1 
N-I,2 
N-1 , 1 
N-I,2 
N-1 , 3 
N-I,4 


NOHBERS 


TEST»SOftKI  (1.1)  -VORKI  (1-1,  1) 

IF  ((TESI.LT.  106)  .AND.  Z.E2.3)) 
Z=Z*  1 
GO  TO  180 

WO  R K I  ( 1 ,  1)  *WORK  I  (1,1)  *1 
CCNTINOE 

DO  YOO  NEED  A  HENO  ??? 


GO  TO  170 
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READ  (5.603,SND  =  192,SRF=192)  AN  S 
CALL  rETCMS  f'CIRSCRN  ■ ) 

I?  (  (ANS. £0. YSS).GR.  (ANS.SQ.NO)  )  GC  TO  200 
Hi  WIND  5 
WRITE  (6.604) 

GO  TO  1 90 
CONTINUE 

IF  IANS. SQ. YES)  GO  TO  210 
WRITE  (6,o07) 

CALL  RtA  6 1  (T  Y?  £,S) 

GC  TC  220 

GET  THE  NEW  FITTING 
CALL  MENU  (0,0  .TYPE,  FITID) 

CALL  EEL ECT(P,  l.FITIO, TYPE, WO RXI, SOBER) 

OC  YOU  WANT  TO  ADD  ANOTHER  FITTING  ??? 
SHITE  (6,612) 

HEAD  (5,603,2NE=232,EHR=232)  AN S 
IF  UANS.2C.  YES). OR.  (ANS.EQ.SG)  )  GO  TO  2«0 
H  i  W  IN  0  5 
"WRITE  (6.694) 

GO  TO  23a 
CONTINUE 

I?  (ANS.  SQ. YES)  GO  TO  150 

00  YOU  SANT  TO  SAKE  ANY  0THS3  CHANGES  ??? 


WHITE  (6,6  13) 

HEAD  (5,  603, END=252, ERR  =  252)  AN S 
IF  (J(ANS.  £0.  YSSJ.OH.  (  ANS.EQ.NO)  )  GO  X 


REWIND  5 
WHITE  (6,609) 

GC  TO  i  55 
CONTINUE 

IF  (ANS.  SQ.YES)  GO  TO  20 

CALL  SUHOHT  (WORKI,  WORKS,  N) 
REWIND  9 
FCBMAT(I6./,I3) 

PA-m  T  /T  O  17  •-  e  1  7  T  • 1  TV  r  1  A 


TO  260 


FORMAT  (A  1 ) 
FORMAT  ' 
FORMAT  (* 
FOHMAT  (' 
FORMAT  ?' 
FORMAT?' 
FORMAT?' 
FORMAT  (' 
FORMAT?* 
FORMAT  ?' 
FORMAT  ?' 


YOUR  OLD  FILE  SILL  BE  PERMANENTLY  CHANGED,  DID  YOU'/ 
COPY  THE  OLD  FILE  UNDER  A  NEB  NAME  IF  YCU  WANTED  TO'/ 
SAVE  IT?  IF  NOT,  ENTEH  TWO  NULL  STRINGS  TO  KILL  IHZ' 
PROGRAM.  ') 

YOU  SCSI  ENTER  A  LETTER  INDICATED  IN  THE  EEACKETS.') 
WHAT  LINS  00  YOU  WANT  TO  EDIT?') 

DO  YOU  NEED  A  MENU  (Y/N)?') 

SHAT  IS  THE  FITTING  TYPi  NuMBER?') 

WANT  TO  CHANGE  ANOTHER  FITTING  (Y/N)?') 
nSt-FTTON  rn*PT.ET»  'I 


DELETION  COMPLETE.') 

WANT  TO  DELETE  ANOTHER  FITTING  (Y/N)?') 
AFTER  SHAT  LINE  DO  YO"J  "WANI  TO  ADD  ANCTHS 
WANT  TO  ADD  ANOTHER  FITTING  (Y/N)?'} 

WANT  TO  MAKE  ANY  OTHER  CHANGES  (Y/N)?') 


R  FITTING?') 


' « TT 


« 


1 


£ 


10 


C 

c 


c 

c 

c 

c 


COMPUTE  SUBROUTINE:  PRODUCES  PERFORMANCE  DATA  CF  SYSTEM 

THE  DUCT  DATA  FITE  IS  READ  AMD  THEN  THE  USER  MUST  INPUT  THE 
DESIRED  OPERATING  POINT.  INPUT  THE  AMBIENT  TEMPERATURE 
(DEGREES  F),  THE  AMBIENT  PRESSURE  (PSIA),  AND  HUMIDITY  (GRAINS), 
HORSEPOWER.  AND  POWER  TURBINE  SPEED.  OUTPUT  IS  THE  ENGINE 
PERFORMANCE  AND  DUCT  RESISTANCES.  THE  OUTPUT  GOES  TO  YOUR  DISK 
UNDER  FILE  OUTPUT  DATA. 


SUBROUTINE  COME 
REAL  ' 


i  * 


REAL  WORKS  .10. PO.HUMI D ,  H ?  ,  N E T , ACT  3 , ACN M , AC W C , A EW B  ,  A DUC , 

►  ADWM, ALfIe,ALFAC,RHCSTD,  -MFD . EFMM A X, D P MAX , K 

INTEGER  N, INDEX, WORKI , CLASS , jR A NC H ,F IT  1  ST, M , TEST , NBR , OF F, 5 E 


•  m  Ail 

♦  ANS.YSS.NC 

DIMENSION  INDEX 


RIAL, 


_  _  (200)  , SORKI  (200,2)  , WORKS  (200, 4)  ,FIT1ST(7) ,NBR(6) 

DATA  YES/*  TV,  NC/'NV 
CALL  ?RTC3  S  ('CLnSCPH  *) 

HEAD  FILE  SERIAL  NUMBER  AND  HOW  MANY  FITTINGS  ARE  IN  THE  FILS 
READ  (8,600)  SERIAL,  N 

READ  INDEX, ID  N0M3ER, FITTING  TYPE, AND  FOUR  ELEMENTS  OF  CATA 
FOR  EACH  FITTING 
DO  10  1=1. N 

READ  (8,601)  INDEX  (I)  .WORK  1(1,1)  ,  WOEKI(I,2)  ,  WORKS  (I  ,  1)  , 

WGEKE  (I,  2)  ,  BORKR  (1,5)  ,XORKR  (1 , 4) 

CONTINUE 
REWIND  3 
FIND  OUT  WHAT 


CLASS9 
SET  OP 


CLASS  SYSTEM  IS  IS  THE  DUCT  DATA  FILE 


WORKIM  ,  11/100000 
FOR  THi  CORRECT  NUMBER 


IF 

IF 

IF 

IF 

IF 

IF 


OP  BRANCHES  FOR  THE  SYSTEM 


20 


30 

40 

50 


60 

70 

30 


IF  (CLASS.  EQ.  1)  ERANCH=4 
tv  )r  -  icc  v r  sBANCH  =5 

ERANCH=6 
BRANCH  =5 
ERANCH=5 
BRANCH  =4 

_  _  GO  TO  30 

SEAECH  FOR  WY*  AREAS.  MUST  3E  KNOWN  FOR  MATCHING.  SEARCH 
DONE  BY  LOCKING  FOR  THE  "WYE"  FITTING  IYPES,  13,14, ,5,16. 
DO  70  1=1, N 

•'*  "  ‘GO  TO  30 
TO  4  0 
TO  5  0 
TO  6  0 


CLASS. EC- 2 
CLASS.  EC.  3 
CLASS. EC. 4 
CLASS.  E  J.  5 
CLASS. EC- 6 
CLASS. EC. 1 


/  u  i  ,  .1 

IF(WORKI(I,2).EC.13) 


IS 


3) 


R  (1,1) 


IF  WORKI,  ,  , 

IF  (WORKI  (X,  2)  .  E 
I F  (WORKI  (1 , 2)  .  E 
GO  TO  70 
A DRC=  WO  RKE  (1,1) 

ADWB=WORKR  |l,2i 
ALFAD=WOEKR  (1,3 
GO  TO  70 
ADWM=WCRKR  (1,1) 

GO  TO  70 
AC  WC=  WC  HKR 
A  C  W  3=  W  0  RK  H 
ALFAC  =  WORKS  (1,3) 

GC  10  70 
AC  WM=  WO  RKR  (1,1) 

CONTINUE 
CONTINUE 
M=  2 

THE  INDEX  NUMBER  OF  THE  FIRST 
IT  IS  USED  IN  THE  JO  LOOPS  OF 
PPESSURE  DROPS 
FIND  THE  INDEX 
FIT  1ST  (1 )  *  1 
DO  90  1=1, N 

TEST9 WORK  I  (1*1,1)  * WORKI  (1,1) 
IP  (TEST. SO.  1)  GO  TO  90 
FIT1ST  (M)  =INDEX  (!♦  1) 

M=  M  ♦  1 


FITTING  OF  THE  ERANCH  MUST  3E  KNOWN. 
.  THE  SYSTEM  ANALYSIS  TO  FIND  BRANCH 
NEXT  LOOP  SEARCHES  FOR  THESE  INDEXES.  LOOP  WILL 
WHEN  ID  NUMBERS  DIFFER  BY  MORE  THAN  ONE. 


33 


nonnnnnn 


90 

c 

c 


c 


95 

93 

100 


150 


200 


250 

300 

350 

400 

c 

410 

420 

430 

600 
601 
oO  2 

60  3 
604 


CONTINUE 

GST  THE  OP  ER  ATING  CONDITIONS  ISO  POWER  5E2  U 13  EMEN IS . 

CALL  OPEQND (TO, PO, HUM  ID) 

I r  A  FAS  IS  IHSTALlED  GtT  FAN  CHARACTERISTICS 

I?  (CLASS. GT.  4 )  GG  TO  98 

CALL  FAN  (RHOSTD.CFMO  .CFflMAX,  JPMAX.K) 

CALL  PSBPT  (H?,NPT,T0 ,P0) 

GO  TO  THE  SYSTEM  SUBROUTINE  TAIL03  ED  FOB  THE  SYSTEM 
GO  TO  (100, 150.200,25 0,300,350) .CLASS 

CALL  SYS  1  (SERI AI, N, W 0 3KI, WORK R, HP, N? T, ? IT1 3 T , T 0, P 0, HUMID , 

♦  BHOST2,CFMO , CF  BMA  X,  DP  MAX  ,  X) 

GO  TO  400 

CALL  SYS2(SERIAL,N,HORKI,NO3K3,H?,NPT,FIT1ST,T0,F0,H[JMID, 

♦  ALFAT.ADWa, ADWC, ADWS, 

♦  RHOSTD.CFMO  ,CFMMAX, DP  MAX , X) 

GO  TO  400 

CALL  SYS 3 (SEBIAL,N,3ORKI,3OBSR,a?,NPT,FIT1ST,T0.?0,HOBID, 

♦  ALFAE.ADWB,  ADSi  C ,  ADW  M,  AL  F  AC  ,  AC  Wo,  ACWC  ,  ACWM , 

♦  rhosic.cfyO ,  CFMMAX, DPMAX , K) 

GC  TO  400 

CALL  SYS 4 (S£3IAI,N,RORKI , OOHK B, H ? , NPT, FIT1  S T , TO , PO, HUMIC, 

♦  ALFAC,ACW3, ACW C, AC 4 M , 

♦  RHOSID,CFMO  ,CF3MAX, DPMAX, K) 

GO  TO  400 

CALL  SYS  5 ( SERIAL, N ,RO RKI , WORKE, HP.NPT.FIT1  ST, TO. PO,  HUMID, 

♦  ALFAI,ADWB, ADWC, ADWM, ALFAC,ACWS, ACNC,ACWH) 

GC  TO  400  ' 

CALL  SYS 6  (SERIAL, N.WORKI.WOBKR, HP, NPT.FITIST, TO, ?Q,H0MlD, 

♦  ALF AC , aCK3 , ACHC, AC3M) 

CCNTINOS 

DO  YOO  WANT  TO  COMPUTE  WITH  DIFFERENT  OPERATING  CONDITIONS  ??? 
WRITE  (6  ,6021 

BEAD  (5,o03,ENC=420,ER5=420)  AN  5 
IF  ({A NS.  EQ.  YES). OB.  (ANS.EQ.NO)  )  GO  TO  430 
R  2  BIN  D  5 


WHITE  (6,604) 

GC  TD  U  10 
CCNTINUS 

IF  (ASS. SQ. YES)  GO  TO  95 
FOFMAI (16 13) 

FORMAT  (13, 3x,l6 
FORMAT  ('  DO 
♦  NS  (Y/N)  ? •  ) 

FORMAT  (A  1) 

FORMAT  (•  YOO  MUST 
RETURN 


ia,3X,I2,3X,F1Q. 4, 3 Y, FI  0.4, 31, F10. 4, 3X.F10.4) 

YOU  WANT  TO  COMPUTE  WITH  DIFFERENT  OPERATING  CONDITIO 

N TEE  A  LSTTE3  INDICATED  IN  THE  BRACKETS.') 


END 
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C  AIL  HD  BY  THE  BOILD  S  UBr.OUT  IS  E.  USED  DO  BET  Jr  THE  PROGRAM  PCS 
THE  VASIA  I  ID  .VS  IN  DUCT  SYSTEMS  AVAILABLE.  THE  EDITING  BJ3SCJT:NH 
CAN  NCT  CHANGE  THE  SYSTEM  TYPE.  ONCE  SET  J?  HESE  ANOTHER  SUN  OF 
THE  BUILD  S33a03T-SE  IS  REQUIRED  TO  JET  A  D IFF ES ENT  SYSTEM. 

3 JESCJTI NE  SYSTEM (SORL, CLASS) 

INTEGER,  SO HL, CLASS,  AN  SI , ANSI,  AN  SB , YES, NO,  3  HOST 
DATA  YES/'  Y'/,  NC/'  N' /.SHGRT/3/ 

IF  JSCf.L.  £Q.SH_RT)GO  TC  30 

DOES  THE  COOLING  AIR  BRANCH  OFF  THE  MAIN  INLET  ??? 

Mr.  ITE  (fa,  60  3) 

HEAD  (5.0  01  ,feND  =  7,  ERR*  7)  ANSI 
IF  (  (ANSI. EC. YES) .OR.  ( ANSI. E„. NO) )  GO  TO  13 
REMIND  3 
WRITE (6,602) 

GO  TO  5 

DOES  THE  COOLING  AIR  JOIN  THE  MAIN  EXHAUST  ??? 

MR  ITS  (6 . 60  3) 

READ  (5,0  3  1  ,  cND  *  12,  "R  R  *12)  AN  52 

I?  I  (A  NS2  . SQ. Y2S).0R.  (ANS2. £*.NC))  SO  TO  15 

WRITE (6,602) 

jJC  "'Q  ^  j 

IF  (ANS2.  Eg.  YES)  GO  TO  20 
GO  T3  2  5 

IS  THERE  A  COOLING  FAN  INSTALLED  ??? 

MRITE  (6,  604) 


READ (5, fa  01 ,END*22,ERR*22)ANSi 

IF  (JANS3.  E^.YES)  .CR. (ANS3.EQ. S0|) GO  TC  25 


MRITE (6,602) 

GO  TO  25 

SYSTEM  DLASSIr ICATION  DEPENDS  ON  THE  CO NPI G 3 3 At  I  OS  OF  THE  SYSTEM 
AND  IP  A  COOIING  FAN  IS  INST  AIL  EO.  CON  FID J B AT 1 3 N  MEANS  30M  THE 
DUCT  ARE  JOINED  TOGETHER  IN  THE  SYSTEM. 


IF  (ANS1.EQ.N0  .AND.  ANS2.EJ.no  ) C I A  5  5 » 1 
IF  ANSI. Eu. YES  .AND.  ANS2.s5.NO  ))CLA3S*2 

IF  ANSI. 20. YES  .AND.  ANS2.El.Y25  .AND.  AN3 3. EJ. YES)) CLASS* 3 

IF  ANS1.EQ.N0  .AND.  A N 52 . E 5 . Y ES  . AND.  AN  S  3 .  EC .  Y  ES) )  C  l  ASS*  4 

IF'  ANSI. EQ. YES  .AND.  ANS2. EJ. Y2S  .AND.  AN S 3 . E C . NO  ) ) C L ASS *  5 

IF  ANSI . EQ. NO  . AND. (ANS2.tJ. i ES  . i ND. (AN S 3 . EQ . NO  ) ) C L ASS* 6 

GO  i  0  40 

SHCHT  INSTRUCTIONS...  JUST  ENTER  THE  SYSTEM  CLASSIFICATION  NUMBER 
WRITS  (6,  605) 

CALL  r.EADI  (CLASS, 51 

IF  ((CLA5S.GT.0) .AND.  (CLASS.LT.7))  GO  TC  40 
WRITS (6,o06) 

GO  13  3  5 
CC  STINUS 

FORMA  T  (*  DOES  THE  MODULE  COOLING  AIR  BRANCH  OFF  THE  MAIN  INLET? 
i ) 

FORMAT  '  YOU  MOST  ENTER  A  LETTER  IN  THE  3RACXETS.') 

FORMAT  ('  X  ES  THE  MODULE  COOLING  AIR  JOIN  THE  MAIN  ENGINE  EXHAUST 


FORMAT  (' 
♦?  ( Y ,  N)  ' ) 

FORMAT  (• 
FORMAT  (' 
FORMAT  (' 
RETURN 
ENC 


IS  THEBE  A  COOLING  FAN  INSTALLED?') 
ENTER  THE  SYSTEM  CL AS  SI FIC ATI  ON :  1,  2, 

YOU  MUST  ENTER  A  1,  2,  3,  4,  5,  OR  fa') 


3,  4,  5,  OR  o') 
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SEND  SUBROUTINE:  PRINTS  ME  NU  A3D  FINDS  007  WHICH  FITTING  TO  USE  C 

,*******•••* *********** •••*••*•••••**•***•*•**•*•***••••*****•**•*•0 

CALLED  BY  BOIL  D  AND  EDIT  SUBROUTINES.  C 

CHANGING  THE  NUMBER  OP  FITTINGS  REQUIRES  CHANGING  TEE  MENU.  C 

JOST  REVISE  THE  FORMAT  STATEMENTS,  WATCH  THAT  IT  DOES  NOT  C 

OVERFLOW  THE  SCREEN.  C 

»•••*•* *•••***•*•*••«•* •*•****•••*•••••**••••••****••••****•*•••***£ 

SUERCOTINE  MENU  (M,TSR M.T YPE , FIT ID) 

INTEGER  FITID, M, TERM,  TYPE, CRT ,1 YPWRT 
DATA  TYPWR  T/0/ 

IF  USER  IS  ON  A  TYPEWRITER  TERMINAL,  THE  MENO  IS  PRINTED  ONLY  ONCE 
I?  (  (M.GT. 0). AND. (TERN .EQ.TYPWRT) )  GO  TO  ID 
WRITE  6,600) 

WRITE  6,601} 

WRITE  6,602} 

WRITE  6,603} 

WRITE  6,604} 

WRITE  6,  605}  FITID 
CALL  READI  (TYPE, 5) 

GO  TO  20 
WRITE  (6,606) 

CALL  READI  (TYPE, 5) 

CCNTINOE 

CALL  FRTCM  S { • CLRSCRN  •) 

FORMAT  (  •  00  NO  MORS  PITTINGS  THIS  BRANCH*. 6X,  •*  14  DIVERGI 

♦  NG  WYE,  MAIN  SECTION  •/•  01  INTAKE  SHAFT,  RECT  SECTION,  SIDE  * 

♦15  CONVERGENT  WYE,  3RANCH  SECTION  •/•  .  ORIFACSS,  WITH (OUT)  LO 

♦OVERS  *  16  CONVERGENT  WYE.  MAIN  SECTION  * /* •  02  STRAIGHT  DUCT*, 

♦  2 1 X, ' *  17  DIFFUSES,  CONICAL  ROUND  SECTION'/'  03  ELBOW,  SMOOTH  R At 
♦XUS  RCUND* ,ax, •*  1§  DIFFUSER,  PLANE,  IN-LINE'/'  04  ELBOW;  90  DEG; 

♦  3,4,0  PCS;  ROUND  *  19  DIFFUSER  PYRAMIDAL,  IN-LINE  •/•  05  ELB<J 
♦W.  MITERED,  ROUND,  W&W/O  VANES*  20  DIFFUSER,  TRANSITIONAL  (ROUND  T 

♦  O'/ 

♦•  06  ELBOW,  MITERED,  RECTANGULAR  *  RECT  OR  RECT  TO  RO 

♦  UND)  '  ) 

FORMAT ('  07  SIEOW,  SMOOTH  RADIUS,  RECTANGULAR  *  21  CONTRACTION  RO 

♦ONE'/'  08  ELBOW,  SMOOTH  RADIUS,  WITH  *  22  CONTRACTION  RECT 

♦ANGULAR' /•  3PLITTE8S,  RECTANGULAR  *  23  OBSTRUCTION, 

♦SCREEN  IN  DUCT’/'  09  ELBOW,  MITERED  WITH  VANES,  RECT  *  24  L00v£ 

♦  R  ENTRANCE') 

FORMAT  (•  10  ELBOW,  CONVERGING  OR  DIVERGING  *  25  FILTER'/ 

♦'  FLOW,  RECTANGULAR' ,14X,'*  26  MULTI-BAFFLE  SILENCER'/ 

♦•  11  ELBOWS,  9Q  DEG,  Z-SHAPED,  RECT  *  27  GT  MODULE  •) 

FORMAT ('  12  ELBOWS,  90  DEG,  13  DIFFERENT  *  28  WASTE  HEAT  BOI 

♦LSR'/ '  PLANES,  RECTANGULAR  ',11I,'»  29  EXIT  ABRUPT'/ 

♦'  13  DIVERGING  WYE,  BRANCH  SECTION  *  30  FITTING  301  LISTED') 

FORMAT ('  /  ****** ***»**os2  XWO  DIGIT  NUMBER,  PRESS  ENTER******* 

♦****»! 

FORMAL ('  »  YOU  ARE  WORKING  ON  FITTING  NUMBER  >>  ',16) 

FORMAT  (•  ENTER  THE  FITTING  TYPE  NUMBER  FROM  THE  MENU.4) 

RETURN 

END 


f 


SE1ZCI  SUBROUTINE:  BB  ANCHES  TO  FITTING  SELECTED  IN  MEN  U 


CALLED  BY  BUILD  AND  S 
THIS  SUB  BO  UT I N  E  CALLS 
DATA  OF  A  FITTING  TO 


DIT  SUBROUTINES 

LOAD  A  SUBROUTINE  THAT  TF.ANSFEBS  THE 
THE  SYSTEM  STORAGE  ARRAYS  WORKI  AND  WORKR 


SUBROUTINE  SELECT  (M, 
BEAL  ViOB  KB/A  KB 
INTEGEH  M , WKI ,  WORKI, S 
DIMENSION  WORKI  (200, 2 
CHANGING  THE  NUMBER  0 
GC  TO  STATEMENT  AND  T 
THAT  HANDLES  TEE  NEW 
GO  TO  (1,2.3, 4-5.6, 7, 

+  2l.52'25fj4ll5 

CALL  FIT01  (SORI.GiOM 
CALL  LOAD  (N,  GECM,  WKI 
GO  TO  40 

CALL  FIT  02  (SORL.GEOM 
CALL  LOAD  (M  ,  G  ECM ,  WKI 
GC  TO  40 

CALL  FIT 03  (SORI.GEOM 
CALL  LOAD  (H, GECM, WKI 
GO  TO  40 

CALL  FIT  0  4  (SORL.GEOM 
CALL  LOAD  (M,  GECM,  WKI 
GO  TO  40 

CALL  FIT 05  (SORL.GEOM 
CALL  LOAD  (M, GECM, WKI 
GO  TO  40 

CALL  FIT 06  (SORL.GEOM 
CALL  LOAD  (M.GECft.WKI 
GC  TC  40 

CALL  FIT 07  (SOEI.GEOM 
CALL  LOAD  (M,  GECM,  WKI 
GO  TO  40 

CAIL  FIT 08  (SOEI.GEOM 
CALL  LOAD  (M, GECM,  WKI 
GO  TO  40 

CALL  FIT 09  (SOEL.GECM 
CAIL  LOAD  (M,  GECM,  WKI 
GO  TO  40 

CAIL  FIT  10  (SOEI.GEOM 
CAIL  LOAD  (B, GECM,  WKI 
GO  TC  40 

CALL  FIT  11  [SORI.GEOM 
CALL  LOAD  (H.GECB,  WKI 
GO  TO  40 

CALL  FII12  (SORL.GEOM 
CAIL  LOAD  (M,  GECM,  WKI 
GC  TO  40 

CAIL  FIT  1 3  (SOEI.GEOM 
CALL  LOAD  (0,3 ECM,  WKI 
GO  10  40 

CAIL  FIT  1 4  (SORI.GEOM 
CAIL  LOAD  (M, GECM, WKI 
GO  TO  40 

CALL  FIT  1 5  (SOBI.GEOM 
CALL  LOAD  (M  ,  GECM,  WKI 
GO  TO  40 

CALI  FIT  1 6  (SOEI.GEOM 
CALL  LOAD  (B,  GECM,  WKI 
GO  TO  40 

CALL  FIT  1 7  (SOEI.GEOM 
CAIL  LOAD  (M  ,  3 ECM,  WKI 
GO  TO  40 

CALL  FII13  (SORL.GEOM 
CALL  LOAD  (M, GECM, WKI 


SORL.GEOM, TYPE, WORKI, WORKR) 

CEL, GEOM, TYPE 

f.WORKH  (230.4)  ,  WKI  (2)  ,  WKR  (3) 

F  FITTINGS  SEQuIBES  A  CHANGE  TC  THE  FOLLOWIJ 
HE  ADDITION  OF  A  CALL  TO  THE  SUBROUTINE 
FITTING. 

f5l:27'28:2l)'.,TtPE'15'  15'  17'  18'19'20' 

, WKl , SkE) 

, WKR,  WOEKI, WORKS) 

.WKI, WKR) 

, WKR, WORKI, WORKR) 

,  WKI ,  W KB) 

, WKB, WOBKI, WOBKR) 

, WKI, WKB) 

,  WKB,  WOE.kl,  WORKR) 

, WKI, WKR) 

, WKB, WOBkl, WORKS) 

, WKI, WKB) 

, WKB, WORkl .WOBKR) 

.WKI, WKR) 

, WKB, WCakl, WOBKR) 

, WKI, WKR) 

, WKR, Woakl, WORKR) 

, HKI, WKR) 

, WKB, WOBkl, WOBKR) 

,  WKI,  WKB) 

, WKR, woakl, WORKS) 

, WKI, WKB) 

, WKB, WORkl, WORKS) 

, WKI, WKR) 

, WKR, WOBKI, WORKR) 

, HKI, WKB) 

, WKB,  WOnkl, WORKS) 

, WKI, WKR) 

, WKB, W03kl, WORKS) 

, WKI, WKR) 

,  WKB, woakl, WORKS) 

, WKI, WKB) 

, WKR, woakl .WORKS) 

, WKI, WKB) 

, WKB, WORKI, WORKS) 

, WKI, WKB) 

, WKR, WOBkl .WORKS) 
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fc- 

& 


i 


19 


29 


21 


22 


23 


25 


26 


27 


28 


30 


40 


GO  10  40 
CALL  51219 
CALL  LOAD 
GO  TO  40 
CALL  5 IT 20 
CALL  LOAD 
GO  TO  40 
CALL  FIT  21 
CALL  LOAD 
GO  TO  40 
CALL  FIT22 
CALL  LOAD 
GO  TO  40 
CALL  FIT23 
CALL  LOAD 
GO  TO  40 
CALL  FIT24 
CALL  LOAD 
GO  TO  43 
CALL  FIT  2  5 
CALL  LOAD 
GO  TO  40 
CALL  FIT 2 6 
CALL  LOA D 
GO  TO  40 
CALL  FIT 2 7 
CALL  LOAD 
GO  TO  40 
CALL  FIT 2 8 
CALL  LOAD 
GO  TO  43 
CALL  FIT29 
CALL  LOAD 
GO  TO  40 
CALL  FII30 
CALL  LOAD 
A  NEW  FI  IT 
COST I NOE 
B2TUBN 
END 


, SET, WKR) 

, WKB, WORKI, WOEKB) 


,WKI,  WKRj^ 


,HKI,HKaj^ 


a  o  r  x  a ) 

WORKS) 


(so  hi, geos 

(H,  GECa, WKI 

(SOFL.GEOS 
(a,GEOH,WKI ,SKR,WOR 

( SO  RL,GE0M 
(a,GECS,3Ki;WKR;aOF, 

(SOEL.GECH 

;a,G2oa,— 

(S.3Ech,5Ki ;wxa;woafci,  workr) 

,wki, wkrj 
, WKR, WORKI, WORKR) 


(rf, GEOS, WKI 
SO  FL, GEOS 


,  WKI,  WKR) 
,wKa,WGaKi,wcHKR) 

, WKI, WKR) 

i 


(SOFL.G 
;a ,  g  ECfl, 

(SORT, GEOS 
(a  ,GECa,  WKI 

(SO  EL-GECa 
(H  ,  3  2CH,  WKI 

(SOBL.GEOa 
(S,  GECM,  WKI 

(SO HL.GEOH 

(h.gecs.wki 

(SOSI, GEOM ,WKI,  WKR) 

(3 , 3  ECS, WKI , WKR, BuRKI , WORKS) 

,  WKI ,  WKR) 

,«KB, WORKI, WORKR) 


, WKI , WKR) 

,WKR,  WORKI, WOBKE) 

, WKI, WKR) 

, WKR, WORKI, WORKR) 

, WKI, WKR) 

.wkr.wgrki, workr) 


(SORT, GEOS 
;a,GEca,wKi 

30  (SOSI,G£OH 
D  (f!  ,  G  ECS,  WKI 
TTING  WOULD  a 


, WKI,  WKR) 

, BKH, WORKI, WORKR) 

EQUI3E  ANOTHER  CALL  STATEHENT  HEEE 


I 


« 
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FITTING  01:  7SRT.  INTAKE  .SHAFT,  SITE  ORIFACES,  KITH  (OUT)  LOUVERS 

REF.  HANDBOOK  CF  HYDRAULIC  RESISTANCE,  I.E.  IDEL'CHIK,  PAGE  103** 
THE  TABULATED  VALUES  ABE  LISTED  IN  AN  ABRAY  "A",  THE  PROPER  VALUE 
IS  EXTRACTED  3Y  ANSWERING  CERTAIN  OUESTIOKS  ABOUT  CONFIGURATION. 
THE  REFERENCE  AREA  IS  THE  SHAFT  AREA.  THIS  FITTING  IS  FOR 
DYNAMIC  RESISTANCE,  THE  DUCT  CONNECTED  TO  IT  SHOULD  START  JUST 
EEIOS  THE  ORIFACES. 


SUBROUTINE  F IT0 1  (SORL ,G£OM , WKI, WKR) 

SEAL  WKR. A, AREA 

INTEGER  N  ,  M.  AN  S  1, ANS2  ,  YES,  NO. GEOS  ,  SO  EL,  WKI  ,  0  E?  ,  J 
DIMENSION  SKI  (2) ,KKR(4) , A (2,5) 

DATA  YES/*  Y* /. NO/' S'  /,0?P/'6'/, ADJ/'  A'/ 

HOW  MANY  ORItXCFS  ??? 


WRITE  (6.  60  0) 
CALL  READ  I  (N,  5) 
IF (<N.LI.  1 ) . OR. 
I?  {N.  NE.  2)  GO  1 


IF  TWO, 


I)  .  OR.  (N.GT,  4) )  GO  TO  2 
GO  TO  10 

’POSITS  OR  ADJACENT  ??? 


-  i-i  *  wr  ru  j  i  vj  a  awu  •  •  . 

5  WRITE  (6,  602) 

HEAD (5,o03.END=7,SRR=7)  ANSI 
IF  ({ANSI. EQ.OPP) .OR.  ( ANSI. £Q. ADJ) ) GO  TO  10 
7  REWIND  D 

WRITE (6  ,604) 

GO  TO  5 

I  ARE  THERE  LOUVERS  INSTALLED  ??? 

10  WRITE  (6,60  1) 

CALL  nEADR  (AREA, 5) 

15  WR ITS  (6 , 60  5) 

READ  (5,603. END=17,SRR=17)  ANS2 
.  IF  (j  A  H52.  Ew-  YES) .  OR.  (  ANSI.  EQ.  NO) )  GO  TO  18 

17  REUND  5 
WRITE (6  .604) 

GQ  TO  15 

18  IF  (N.ED.2). AND. (ANS 1  .  SG.OPP)  1  N=2 
IF  (N.E3- 2) . AND. (ANSI .SQ.ADJ)  )  N=3 

IF  n1e§*.  4  N  =  5 

IP  ANS2.  EQ. YES)  GO  TO  20 

M  = 

GO  TO  30 
20  M=  2 
30  CONTINUE 

C  DATA  FROM  IDEL’CHIK* S  HANDBOOK 

A  1,  11-12.  6 
Ai  1,2  =3.6 
A  1,3) *4 . 2 

A  i  1,  4j  =1. 8 
A  1, 5) =1 . 2 
A  ( 2,  1  =17.5 
A (2,2  i  =5. 4 
A  (2,  3  =6.3 
A  (2,4  =3.2 
A  ( 2,  5  =2.5 

C  SKIER  DATA  INTO  TRANSFER  ARRAYS  WKI, WKR 

W K I  { 1 ) =G  EOM 
WKI  2)=1 
WKR  1 ) =A  REA 
WKH  2) =0. 0 
WKR  3)=A  (M.N) 

WKR  4 j =  A R E A 

600  FORMAiC  YOU  HAVE  SELECTED  A  VERTICAL  INTAKE  SHAFT  OF  »/ 

♦  ■  RECTANGULAR  SECTION  WITH  SIDE  ORIFACES  AT  THE  TOP. */ 

♦  '  IT  MAY  OR  HAY  NOT  HAVE  LOUVERS  OVER  THE  ORIFACES.'/ 

♦  '  FILTERS  ARE  A  SZPARATS  FITT ING. • // ' ***FIFST,  ENTER  THE  NU 

♦  MB  ER  CF  ORIFACES.  (1,2,3,OF  4)*»*') 

601  FORMAIC  ENTER  THE  CROSS  SECTIONAL  AREA  OF  THE  VERTICAL  SHAFT.') 


60 


noooono' 


FO  PM  AT  (’  SINCE  TH2F.E  AR  2  TO  3E  ISO  GRIFACZS,  ARE  THE  ORIFAC3S  OP? 
♦OSITZ  OR  ADJACENT  (O/A)?') 

FORMAT (A  1) 

FORMAT?'  TOO  MOST  ENTER  A  LETTER  IN  THE  3RACKZTS.’) 

FORMAT  '  LAST  COESTION,  ARE  LOUVERS  MOUNTED  ON  THE  ORIFACES?  ( 1/ 
♦N)  •  J 
EtTuRN 
END 


on  n  ononnonci 


10 


20 


30 


40 


50 

100 


oO  0 


601 

602 

603 

604 
o05 


606 


^ FITTING^ 02 :  STEAIGHT^OUCT^fiOUND^OR^RECTANGULAfl 

NO  REFERENCE,  CNIY  THE  DOC?  GEOMETRY  IS  INPUT  HERE.  LATER  ON  IN 
THE  COMPUTE  PAST  OF  THE  PROGRAM  A  COSFFICENT  3ASED  ON  F*L/D  GILL 
BE  DEVELOPED  TO  DETE8  MINE  THE  RESISTANCE  OF  THE  DUCT.  F  IS  THE 
FRICTION  FACTOR.  SEE  FITD?  FOB  THE  CORRELATION  USED. 

SUESOUTINE  FIT02  (SOR L, GEOM, SKI, WKR) 

BEAL  A, 3. L,D, WKR 

INTEGER  SGRL.G  FCM,NKI , AN S 1 , CIR , R SC, 3  HOB T 
DIMENSION  WKI  (2)  ,  WKR  (4) 

DATA  CIH/' C’  /, RFC/*  R SHORT/ 0/ 

IS  DOCT  CIRCULAR  OR  RECTANGULAR  ??? 

WRITE  ^6, 60  01 

READ(3,o01,£:N0=6,ERR=6)  ANSI 
IF  ( (ANSI . EC. CIR) .OR.  ( ANSI. EQ. BEC) )  GO  TO  7 
BEHIND  5 
SHITE (6 ,608) 

GO  TO  5 

IF  (ANSI.  EQ. CIR)  GO  TO  30 
IFjSCKL.  EQ. SHORT)  GO  TO  10 
WRITE  (6,602) 

CALL  aEADR  (A  ,  5) 

WRITE  (6,  60  3) 

CALL  BEADR  (B  ,  5 ) 

WRITE  (6.60  4) 

CALL  REA  DR  (L,  5) 

GO  TO  20 
WRITE  (6.  605) 

CALL  aEADR  (A, 5) 

CALL  READR  B,5 
CALL  READR  L, 5) 

CONTINUE 

AREA=A»3 

SINCE  THE  DUCT  IS  RECTANGULAR,  THE  EQUIVALENT  CIRCULAR  DIAMETER 
IS  REQUIRED.  THIS  IS  FROM  THE  ASHRAE  HANDBOOK ,  CHAPTER  33,  DUCTS 
D=  1.  3  *  ( ( A  * B)  **0.625)  /  (A  +  B)  **0.2  50 
H=I/D 
GO  TO  10  0 

I?  (SCEL.  30. 0)  GC  TO  40 
WRITE  (6,  60  6) 

CALL  READR  (D,  5) 

WRITE  (6,  604) 

CAI1  aEADR  (L,  5) 

GO  TO  50 
WRITE  (6,607) 

CALL  aEADR  (D,  5) 

C  AIL  READR  (L ,  5  l 
AREA=3.14*(D**2/4.0) 

=GEOM 
=2 

=AREA 
=D 
=L 

=AR  EA 

(•  YOO  HAVE  SELECTED  STRAIGHT  DUCT.  IT  MAY  BE  F.CUND  OR  REC 
♦TANGULAR.  • /' ****FIRST  QUESTION,  IS  THE  DUCT  CIRCUIAHOR  RSCTANGULA 

1o»Mi ,?,) 

FORMAT  ('  THE  DUCT  IS  RECTANGULAR,  ENTER  FIRST  CRCSS-SECTIONAL  DIM 
♦  ENSICN.  (FEETjjn 


FORMA 
FORMA 
FORMA 

♦  »  FO 

♦  ' 

FORMAT  (• 


it: 

RMAT: 


SECOND  DIMENSION  (FEET)  ') 

ENTER  THE  LENGTH  0?  THIS  DUCT  SECTION. 
ENTER  THE  RECIANGUAB  DUCT  DIMENSIONS. 
FIRST  DIMENSION  SAMPLE:  10 

SECOND  DIMENSION  8.35 

LENGTH  18.5*1 

THE  COCT  IS  CIRCULAR,  ENTER  THE  DIAMETSF 


(FEET)  * 

(Jfeet<  * 


/ 

(FEET)  •) 


>*«*i**««  ••  i*  •**l*«<2  *2*  *•»•»•*  *t •••«** 


EEF.  ASH  R  A  -  HANDBOOK,  PAGE  33.33,  TABLE  3- 
CURVE  FIT  TO  TEH  TABULATED  DATA 


FITTING  3-1 


SHCHT  FITTING,  FRICTION  LOSSES  NOT  INCLUDED,  CONNECTING  DUCTS 
TO  THE  DENTES  CF  THIS  FITTING. 

SUBROUTINE  FIT 0 3 (SCR L , GECM , WKI , NX R ) 

REAL  R,D, THETA  ,KTH ETA ,  C ,  AB  iA  ,  C  PR  I  ME,  WKS 


O-fti.  D,  .  1/  .  A  ILL  .A  |V. 

INTEGER  SeOM.SCRL, SKI 
Cl  SESSION  WKI  (2) .WKB (4) 
WRITE  (b,  600) 

CALL  READS  (0,5) 

MBITS  (6.  60  1) 

CALL  cEADR  (B,  5  ) 

WRITE  (6,  o0  2) 

CALL  READS  (THETA, 5) 


CALL  READS  (THETA, 5) 

AP.  FA*0.7854*D**2 

XI H£TA=*0. 0  306* THETA**  0,7 825 

C?BIME*0. Q2946*EXP (2.  5627* ( 1. 57138-(R/D))  |  *0. 1 174  6 

0=  KTH  ETA  *C  PSI  .1  E 

MK I ( 1 1 3G  EO  M 

*K I (2  *3 

WKR (1)=AB£A 

WK  S 1 2  =0.0 

M  X  B  j  3  =0 

KKP  (4  =AHEA 

600  FCariATp  FOU  HATE  SELECTED  A  SMOOTH  RADIUS  ROUND  C HOS S-SEC TION •/ 

EL30H.V*  **FI?.ST  QUESTION,  MHAI  IS  THE  C HCSS-5 ECT ICN  DIAMETEE 
*7  (F  ErT )  *  *•  1 

601  FOBS AT  (’  EN.EH  THE  BADIUS  OF  THE  TUHN  OF  THE  ZL3CW  MEASUBED  TO*/ 

THE  D ENTER L INE  OF  THE  DUCT.') 

602  FORMAT (*  LAST  QUESTION,  ENTEB  THE  ANGLE  OF  THE  ELBOW  TUHN.  (DE3H 


END 
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FITTING  04:  ELBCW,  SEGMENTED  SOUND  DRCSS-SECTION ,  9Q  DEGREE 

>**•***=* *************  «*«****««*«*«****«**«* ******************* 

REF.  ASHRAE  HANDBOOK.  PAGE  33.33.  TABLE  3-3,  FITTING  3-2 
CURVE  FIT  TO  THE  TABULATED  DATA  FOE  EACH  NUMBER  OF  SEGMENTS. 
THIS  IS  A  SHOE T  FITTING,  FRICTION  LOSSES  NOT  INCLUDED,  MEASURE 
CONNECTING  DUCTS  TO  THE  CENTEH  OF  THIS  FITTING. 


SUBROUTINE  FIT04(SORL,G£OM,WXI,  WKE) 

SEAL  D.S.WKH 

INTEGER  SOBL.GECe.WKI. N,S 
DIMENSION  WKI  (2)  ,WKB  (4) 

WRITE  (6.600) 

CALL  aEADS  (N.5) 

IF j(N.LI.3).OR. (N.GT.  5)  )  GO  TO  5 
WRITE  (6,  60  1) 

CALL  pEADR  (D ,  5  ) 

WHITE  (6,  60  2) 

CALL  READR  (R ,  5) 

AH  £A* 0.7854*6**2 

GO  TO  (13,20,30).= 

C=4.4022*EXP(3.9394*(0. 00282- 3/D)  )  *0.32829 
GO  TO  40 

C=  1. 3428* EXP (2.486 1*{-3.  02393-S/D)  ) *0.22798 
GO  TO  40 

C=1. 3456 *EXP (1.743 13* (0. 0121 9-S/D) ) *0. 15776 
CONTINUE  ' 

WKI  (1 )  =3  EOH 
SKI (2  =4 
WKR ( 1  i  =A  EE A 
WKE  (2  =0.0 
WKE  (3  i  =C 
WKR  (4  =AHEA 


FOEM AT ('  LAST  OUESTION,  WHAT  IS  THE  RADIUS  OF  THE  TURN  OF  THE  ELB 
♦OW,'_/'  MEASURED  TO  THE  CENISELINE  OF  IKE  DUCT?') 


onnnnono 


onnnnnno 


FITTING  05:  EL3CS'  MITERED  CIRCULAR  CROSS- SECTION 

EEF.  ASHE  AS  HANI30CK,  PAGE  33.33,  TA3LE  3-3.  FITTING  3-3 
CNFV51  FI”  ”0  DA”A 

THIS“IS  A  SHCST*FITTI NG.  CONNECTING  DO ITS  SHOOED  52  MEASURED 
TO  THE  02NTEB  CF  THIS  FITTING. 


3UERCUTINE  FIT05  (S02  L.GZOM,  SKI,  SKR) 
REAL  O.IHETA .CrRIMS, A  REA , WKn, X 
I  NT  EG  EE  SO  EL.  GECM.NSI  ,  AN5,72o,N0 
DIMENSION  SKI  (2)  ,'lKE  I  4) 

DATA  YES/'  ?*/,  SC/*  N’/ 

3R  r~f  m.  snai 


WRITE  (6,6  02) 

READ  (S,o03,2NE=12,SR R=12)  ANS 
IF  ij^ANS.  EQ.  YESJ.OR.  (ANS.iQ.NC)  ) 


GO  TO  20 


SHITE  (6,604) 
GC  TO  10 
CONTINOE 


IF  (ANS.  SQ.YES)  X=0. 2 7 
CPRIME=(3.  74 E-4)  «  (THETA* *1.  7852)  *K 
ARE A =0. 7854*0**2 


SKI  1)=G£OM 
SKI  i  2  =5 
SKE i It  =A  HE A 
WKE  21  =0 
SKE i 3) =C?RIM2 
KKP  M  =ASEA 

600  FCENATf'  70 U  HAVE  SELECTED  A  MUSHED  ROUND  ELBOW.'/ 

♦  '  **FIHST  QUESTION,  SHAT  IS  THE  CROSS  -SET  TIC  UAL  DIA.N  ETE5?  ' ) 
oOl  FORMAT  ('  SHAT  IS  THE  ANGLE  OF  THE  EL30S  TURN?') 

oO  2  FORMAT  ('  LAST  QUESTION,  APS  OPTIMUM  NUMB EH  OF  CONCENTRIC  VANES'/ 

♦  '  INSTALLED  TO  REDUCE  SESI5TANCE  AND  TUR3ULANCE  (Y/N)?') 


FORMAT (A1) 
FORMAT}'  '( 
PETUHN 
END 


YOU  MUST  ENTS5  A  LETTER  IN  THE  3  R  &CKZTS . ' ) 
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10 


20 


FIXING  06: 


■  •**  *  < 

ELBOW  MITERED  RECTANGULAR  C ROS 3 - 3 ECTI CN 


r.-i.  ASHE  AS  HANDBOOK,  PAGE  33. j3,  TABLE  3-3,  FITTING  3-6  AND 
THE  HANDBOOK  OF  HYDRAULIC  RESISTANCE,  lEDL'CHIK. 

CURVE  FITS  TO  TEE  DATA.  THIS  IS  A  SHORT  FITTING,  MEASURE  DUCT 
CONNECTED  TO  IT  TO  THE  CENTER  OF  THIS  FITTING. 


•  ***C 


30  TO 


SUBROUTINE  FIT 06 ( SOR I , G ECU , WKI, WKR) 

REAL  H.S.THETA.OT.A,?  HI.CPnlME.aAU,  AREA ,3H,  BKP. 

INTEGER  SOBL, G ECM, W'Sl 
DIMENSION  SKI (  2)  ,  WKR  (  4) 

WRITE  (6,  600) 

CALL  cSADR(H,5) 

WRITE  (6, 60  1) 

CALL  rSA  DR  (W  ,  5) 

WRITS  (6,  60  2j_ 

CALL  READR  (THETA. 5) 

IF  (TRET  A.  IE.  30.0)  3 
WRITE  (6,  60  3) 

GO  TO  10 

R  A  C=T  HET  A  *  3.  14  16/130. 0 
DH  =  2. 0*jH*W) / (H  +  4) 

C  1=0.  230 97 *EX?  (0.338  9  6* (  1 . 87333- (3/W) )  )  +0.  6  7819 

A=  1.2»1.  03  31*  (  1.5 70S -RAD) /I.  04 72) •«  1. 3 233 

?HI=0 . 95  *  (  (SIN  ]EAD,2.  0)  )  **2)  +  2.  05*  (  (SIN  (RAO/2.  0)  )  **U.  0) 

C?  FI  M S=C  1  *  A* P HI  -  " 

WKI  (1)  =GEQM 
WKI r  2 1 =6 
WKR  ( 1  j  =AR  EA 
KKRi2)=DH 
WKR  (3)  =C?R  IME 
WKR  M=A2EA 

600  F 0 E M A i ( '  YOU  HAVE  SELECTED  A  MITERED,  RECTANGULAR  CHO SS-5E CT ION 
EL3CS.  y’.._*?FIESI_jOZSTION/_WHAr  IS_THE_HEIGHT  OF  THE  SL30W? '/ 

60  1 

602  FORM  AT ('  LAST  QUESTION,  WHAT  IS  THE  ANGLE  OF  THE  ELBOW  TURN  (0  - 
♦90  DEGoEES)?') 

603  FORM  AT  ('  ELBOW  TURN  ANGLE  MOST  NOT  BE  GREATER  THAN  90  DEGRESS.') 
FETURN 

END 
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FITTING  07:  ELBOW  SMOOTH  RADIOS  RECTANGULAR  WITHOUT  7ANES 

>*•*•***«  *******»»********»**«****«*******»««******»************», 

REF.  ASHRAE  HANDBOOK,  PAGE  33.31,  TABLE  3-3,  FITTING  3-5 
USES  TWO  DIMENSIONAL  TABLE  TO  PROVIDE  COEFFICIENT.  CALL  TABLE 
SUBROUTINE,  A  TABLE  LOOKUP  AND  INTERPOLATION  SUBROUTINE. 

SHORT  FITTING,  MEASURE  CONNECTING  DUCTS  TO  THE  CENTER  OF  FITTING 

>••***•***• *••***•• *••**••***•***•*••****•*••*••*•**••** •«**•«•**, 

SUBROUTINE  FIT07  t SOR I, G EOM , B KI , W KR) 

REAL  ViKR.H  ,«,R  .THETA,  T.X.K  THETA,  C,C?RIME,  DH,  AREA 
INTEGER  SKI.IORI.GEOa.XOUT 


DIMENSION  WKI  (2)  ,  WKR  (4)  ,  1(6  1)  ,X  (2) 
TABLE  IS  LISTED  AS  FOLLOWS,  NUMBER 


TABLE  IS  LISTSI  AS  FOLLOWS,  NUMBER  OF  X'S,  NUMBER  OF  Y'S,  THE  X' S 
DATA  T/  9.00,5.03,  0 . 25 , 0 . 50, 0 . 75 , 1  .00 , 1 . 5 0 , 2. 00 , 3.00 , 4. 00 , 5 . 00 , 

THE  I 1 S 

♦  0.50,0.75,1.00,1.50,2.00, 

THE  TAELE  INCREASING  X  TO  THE  RIGHT,  INCREASING  X  DOWN 

♦  1.30, 1.30,  1.20,  1.23, 1.10, 1.10, 0.98, 0.92,0.39, 

*•  0.  57, 0.  5  2,  0.48, 0.44,0.  4  3,0. 39, 0.3  9, 0.40, 0.42, 

♦  0. 27 ’Q. 25,0.23, 0.21,0.  1 9*0.  18*0.  18 ,0. 19 ,0 . 20 , 

♦  0.  22, 0.20,0.  19,0.  17, 0.15, 0.14, 0.14,  0.15, 0.16, 

♦  0. 20,0. 18, 0.16, 0.15, 0.14, 0.13,0.  13, 0.14, 0.1 4/ 

WRITE  (6,600) 

WRITE  (6,  6  0  1) 

CAIL  READS  (H, 5) 

WRITS  (6,602) 

CALL  READS  (W  ,  5  ) 

WRITE  (6,  603l 
CAIL  oZADS  (R  ,  5  ) 

WRITE  (6,  60  4) 

CALL  REA  DR  (THETA,  5) 


:  (  1)  =  H/H 
:  ( 2  j  =  H/W 

■  \  r  *  <t>  «  n 


CALI  TABLE  (T,X,XOOT.C) 
IF  (XOUT.  ST. 3)  GC  IO  SO 
WRITE  (6,  605) 


WRITE  (fc,  605) 

>30  1  j 

KTHEI A=0 . 0306*THEIA**0.7825 
DH-2.0*(H*W)/(3+W) 

C?FIME=C*KTHETA 
AS  EA=  H*W 
WK  I  ( 1 )  =GEOH 
WKI  i  2  *7 
WKR i  1 ) =A  3  E A 
WK  R  2)  =DH 
WKR(3)=C?SIME 
WKR (4( =R/W 

FORMAT  (•  YOU  HAVE  SELECTED  A  SMOOTH  RADIUS  RECTANGULAR  SL3CW  WITH 
♦OUT  VANES.  ') 

FORMAT  ('  *»  FIRST  QUESTION,  WHAT  IS  THE  HEIGHT  OF  THE  EL30W ? ' / 

♦'  (THE  CROSS-SECTIONAL  DIMENSION  PARALLEL  TC  I HE  TURN  AXIS!') 

FORMA-t'  WHAT  IS  THE  WIDIH  OF  THE  EL30W  (THE  CROSS -SECTION AL V 
♦'  DIMENSION  IN  THE  PLANE  OF  I  HE  TURN)  7*  ) 

FORMAT  ('  WHAT  IS  THE  RADIUS  OF  THE  EL3CW ,  MEASURED  TO  THE  CENTER* 
♦/'  OF  THE  SISCW  CROSS-SECTION?') 

FORM  AT ('  LAST  OUESTICN,  WHAT  IS  THE  ANGLE  OF  THE  TURN  (0-90  DEG  R 
♦  EES)  ?  ') 

FORMAT  ( '  CROSS-SECTION  EXTREMELY  NARROW,  RE-ENTER  BETTER  DATA.') 

RETURN 

END 
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FITTING  08:  ELBOW  SMOOTH  RATIOS  3  SCTANGULA  R  WITH  SPLITTERS 

8EF.  ASHRAE  HANDBOOK,  PAGE  33.32  5  33.33,  TABLE  3-3,  FITTING  3-7 
•JSES  TABLE  INTERPOLATION  SCHEME 

THIS  IS  A  SHORT  FITTING,  MEASURE  CONNECTING  DUCT  TO  THE  CENTER 
OF  THIS  FITTING  TO  INCLUDE  FRICTION. 


SUBROUTINE  FITC9  (SOR L. G EOS, WKI , W K2) 

SEAL  WKR, H,H, R,  THETA. KTH ETA /AREA, I, C.CPRIME, T 
INTEGER  SKI.N, XCUT, SO R L, GECM 

DIMENSION  WKI (2) ,WKfi ( 4) , X(2) ,T1 (100)  ,T2  (100)  , 
ONE  SPLITTER 

DATA  T1/3.  00,  10.00.  0 . 25, 0 . SO ,  1 . 00 , 1 . 50 , 2.  0 0, 

♦  0.55,0.60,0.65,3.70,0.75,0.80,0. 

♦  0. 52 , 0.40, 0.43, 0.4  9,  0.55,0.  do, 0. 

♦  0.36, 0.27, 0.25, 0.23, 0.30, 0.35,0. 

♦  0.28,0.2  1,0.  18,0.  1  3,0.20,0.22,  0. 

♦  0.22,0. 16,0.14,3.14,0.15,0.16,0. 

♦  0. 18, 0. 13,0.11,0.11,0.11,0.12,0. 

♦  0. 1 5,  0. 11, 0.09, 0.09, 0.09, 3. OS, 0. 

♦  0.  13,  0.  0  9,0.08,0.0  7,0.0  7,0.09,  0. 

♦  0. 11,  3.  08, 0.07, 0.06, 3.06,0. 06,  0. 

♦  0.  10,0.  0  7,0.36,0.0  5,  0.05,0.05, 0. 

♦  0.09, 0.06, 0.05, 3. 05, 0.34,0. 34,0. 


IWC  SPLITTERS 

DATA  T2/8. 30, 1 0.30,  0.25,0. 

♦  0.55, 0.60,0. 65 

♦  3.26, 3.20,0.22 

♦  0.  17,0. 1 3,0. 11 

♦  0.12,0.09,0.08 

♦  0.09,0.07,0.06 

♦  3.08,3.05,3.04 

♦  0. 06, 3. 04,0. 03 

♦  3.05,0.04,0.03 

♦  0.05,3.03,0.33 

♦  0.04,3.03,3.33 

♦  0.03,0.32,0.02 
THREE  SPLITTERS 

DATA  13/8.33,10.30.  0.25,0. 

♦  0.55.3.6 0,0.65 

♦  0.  11,0. 10,0.  12 

4  O.u7,3.05,3.36 

♦  0.35,3. 04,0.04 

♦  0.03,0.33,0.03 

♦  0.03,0.02,0.02 

♦  0.03,0.02,0.02 

♦  0.02,0.02,0.01 

♦  0.32,0.0 1,0.01 

♦  0.01,0.0 1,0.01 

♦  0.01,0.31,0.31 

WRITS  (6,600) 

HOW  MANY  SPLITTERS  ??? 

WRITS  (6,  60  1) 

CALL  HEAD  I  (N,  5) 

IF  ((N.LI. 11.5a.  (N.3T.  3)  )  GO 
WRITE  (6,  602) 

CALL  kEADR  (H,  5) 

WRITS  (6,  603) 

CALL  READ  R  (W,  5) 

WRITS  (6,60  4) 

CALL  REA  DR  (R  ,  5) 

WRITE  .<',605) 

CALL  HEADR  (THETA.5) 

KTRET A*0 . 0306*TEETA**0.7925 
!(')  =H/W 
Z  J2)  =  F/W 
AH  E A*  H*W 

GO  TO  (20, 30 ,40)  ,  N 


50,2.00, 


50,1.30,1.50,2.00, 
,3.70,0.75,0.80  ~ 
,3.25,0.28,0.33 
,0.12,0. 13,0.15 
,3.08,0.38,3.09 
,3.05,0.06,3.06 
,3.43,0.04,0.34 
,3.03,3.03,0.03 
,0.03,0.03,0.03 
,3.32,3.02'0.02 
l3. 02, 0.0210.32 
,0.02,0.02,0.01 

50,1.03,1.50,2. 
,o!73,3!75,0!30 
,0. 13,0. 14,3.  16 
,0.06,0.06,0.37 
,J.04,J.J4,J.04 
,3.33,3.33,3.33 
,3.32,3.02,0.32 
,3.32,3.32,0.31 
,3.31,0.01,3.01 
,0.01,0.31,0.31 
,3. 01,0. *1,0.31 
,3.31,3.31,0.31 


GO  TO  10 


ri,I2,T3 

,  T3 ( 1 00) , ZO  UT (2 ) 

,3.30,4.00,5.30, 

,95,0.90,3.95,1.30, 

.75,0.34, 

,39,0.42, 

.25,0.26, 

,17,0.18, 

,13,0.14, 

,10,0.101 

.08,0.08, 

.06,0.07, 

.05,0.05' 

.04,0.05^ 

,3.00,4.00,5.00, 

.3S ,  -.90,0.95,1.00, 
.37,0.41, 

.16,0.17, 

.  10^0. ioI 
.06,0.06, 

.05,0.05; 

.03,0.03, 

.03,0.03| 

.32,0.32, 

.  3  2,0.32; 

.01,3.31/ 

,3.00,4.00,5.30, 

.35,0.90,0.95,1.33, 

.18,0.19, 

.  07,0.08, 

.04,3.04, 

.03;3.33; 

.  32,0.02, 

.01,3.01, 

.01,3.31, 

.31,3.01, 

.01,0.01, 

.31,3.31/ 


onnnnnrio 


CALL  TABLE  <T1 ,X, XOUT ,C?HIME) 

30  TO  50 

CALL  TABLE  (T2 , X, XOUT , CPRI ME) 

30  TO  50 

CALL  TABLE  (T3 . X, XOUT ,C?HIME) 

CONTINUE 

IF  ((XOUT  M)  .GT.O) .OR.  (XCUT(2) .31.0))  GO  TO  60 
WRITE  (6-606) 

GO  TO  10 
C=C?RIME*KTE ETA 
WK  I  (  1  =GEOM 
WKI  2  =6 
WKR { V  =AR£A 
WKR  2) =0.0 
WKR  (3  =C 
WKE j4[=ASEA 

FORMAT  ['  TOO  HAVE  SELECTED  A  SMOOTH  RADIUS  RECTANGULAR  ELBOW  WITH 

♦  SPLITTERS. •/•  IT  MAE  HAVE  1,  2,  OK  3  SPLITTERS.') 

FCEMATf*  ** FI RST  QUESTION,  HOW  MANE  SPLITTERS  ARE  IS  THE  EL30W  (1 
♦.2  .05  31  ?') 

FCEMATf'  WHAT  IS  THE  HEIGHT  OE  THE  ELBOW?'/ 

(THE  CROSS-SECTIONAL  DIMENSION  PARALLEL  TC  THE  TORS  AXIS)') 
FORMAT ('  WHAT  IS  THE  WIDTH  OF  THE  ELBOW  (THE  CROSS-SECTIONAL’/ 

♦  '  DIMENSION  IN  THE  PLANE  OF  THE  TURN)?') 

FORMAT ('  WHAT  IS  THE  RADIUS  OF  THE  ELBOW,  MEASURED  TO  THE  CENTER' 
♦/'  OF  THE  ELBOW  CROSS-SECTION?') 

FORMAT ('  LAST  QUESTION,  WHAT  IS  THE  ANGLE  OF  THE  TURN  (0-90  DEG R 

♦  EES)?') 

FORMAT {'  CROSS-SECTION  SXTREMELX  NARROW,  RE-ENTER  BETTER  DATA.') 
RETURN 


m 


10 

20 

30 

43 
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FITTING  09:  ELBOW  .1113320  RECTANGULAR  WITH  VANES 

HEF.  ASH  a  AS  HANDBOOK,  PASS  33.32,  TABLE  3-3,  FITTING  3-9  * 

GIVES  COEFFICIENT  AS  A  FUNCTION  OF  NUMBER  OF  VANES 
SHCRT  FITTING,  BY N AMI C  LOSSES  ONLY.  MEASURE  CONNECTING  DUCTS 
TO  THE  C  EN  TEE  OF  THIS  FITTING  TO  INCLOD  £  FRICTION. 

SUBROUTINE  FITOS  (SOR  L,GEOM  ,  SKI  ,  NKF.) 

REAL  SKR.C.AREA 
INTEGER  SORL,G£CM,SKI  ,N 
DIMENSION  SKI (21 ,NKo (4) 

WRITE  (6,  603) 

CALL  s£AD  I  (N ,  5 1 

GO  TO  (10,20,30)  ,  N 

C  =  0.  12 

GO  10  43 

C  =  0.  15 

GO  TO  40 

C  =  0.  18 

CONTI  NOE 

WHITE  (6,60  11 

CALL  kEADR (AREA, 5) 

SKI  (1)=3EOM 
SKI  (2)  =9 
SK3  i  11=AP.EA 
HK3  (2)  =0 . 0 
SKR  (3 *  =C 
SKR (4) =AREA 

FORMAT!'  YOU  HAVE  SELECTED  A  MITERED  RECTANGULAR  EL30S  WITH'/ 
SINGL E  THICKNESS  VANES.  THERE  MAY  BE  1.  2,  OR  3  VANES.'/ 

♦  '  **  FIRST  QUESTION.  HOW  MANY  VANES  (1,2, OR  3  f  7 • ) 

PCRM AT ('  LAST  QUESTION,  SHAT  IS  THE  CROSS-SECTIONAL  AREA  OF  THE  E 
♦L3CS7  ') 

RETURN 

EMC 
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*s* 1  o •  slecw^rectaugular^pith^convergisg  cs  diverging  flow- 

ref.  ASHRAS  HA NE3COK,  PAGE  33.32,  TABLE  3-3,  FITTING  3-10  **** 

TABLE  INTERPOLATION 

SHORT  FITTING,  DYNAMIC  LOSSES  ONLY.  MEASURE  CONNECTING  20CT  TO 
THE  CENTER  OF  THIS  FITTING  TO  INCLUDE  FRICTION. 


0.  25,  1.00,4.  00,  1000. 00. 

1. 80,  1.40, 1.  10,1.  10,  1.10,  1.  10, 
1. 70,  1.40,  1.0  0,0.  95,  0.  90, 0.34, 
1.  50,  1.  10,0.31 ,0.  76,  0.72,0.66, 
1.  50,  1.00, 0.69, 0.o3,  0.60,0.55/ 


WRITS  (6. 60  21 
CALL  REA  DR  (W0, 5) 

WRITS  (6.  60  3) 

CALL  SEA  DR  (W1 , 5) 

X  (  11  *W1/WO 
x  *ho/wo 

CALL  TABLE (T  .  X  .  XOOT,  C  PRIME) 

IF]jX00T^l£.GT.3) .OR.  (XC0T(2) .GT.O))  GOTO  20 
GO*TOll6  °'*) 


GO  TO  10 

D  H  =2 . 0*  ( H  0  *N  0 )  /  (H0*W0) 

AREA=H0*W0 
WKI  11-JSOM 
SKI 1 2) =1 G 
WKR  1  =AREA 
WKR  2  »OH 
WKR  i  3  *C  P  H  IN  E 
WXR  4  =W  1  *  HO 

FORMATS  YOU  HAVE  SELECTED  a  90  DEGREE  RECTANGULAR  EL303  WITH'/ 

♦'  EITHER  CONVERGING  OR  DIVERGING  FLOW.  THE  HEIGHT  (DINENSIDNV 
♦  •  PARALLEL  TO  THE  TORN  AXIS)  SHOULD  RE  NUN  CONSTANT.') 

FOFM AT ('  ••FIRST  QUESTION,  WHAT  IS  THE  CROSS-SECTIONAL  INLET  HSIG 

f5hnIt('  WHAT  IS  THE  CP.GSS-SECTIONAL  OUTLET  HEIGHT  (DIHENSIGN  IN 
♦THE  PLANE  OF  TEE  TURN)?') 

FORMAT  ('  LAST  IOESTION,  WHAT  IS  THE  CROSS-SECTXONAL  EXIT  WIDTH?') 
FORMAT  (•  CROSS-SECTI ON  EXTREMELY  NARROW,  RE-ENTER  5STTEE  DATA.') 
FETORN 
END 


WHAT  IS  THE  CP.  CSS  ~S  EC  IT  ON  A  L  OUTLET  HEIGHT  (DIHENSIGN  IN 


HE  PLANE  OF  TEE  TURN)?') 

OEM  AT  ('  LAST  IOESTION,  WHAT  IS  THE  CROSS-SECTIONAL  EXIT  WIDTH?') 

OEM AT  ('  CROSS-SECTION  EXTREMELY  NARROW,  HE-ENTSH  SETTEE  DATA.') 
STORN 


nnonnnnn 


nnnnnonn 


FITTING  11:  SLEOWS  90  DEGREE  RECTANGULAR  IN  Z-SHAPED  CONFIG. 

REF.  ASH  R  AE  HANEBOOK,  PAGE  33.32,  TABLE  B- 3 ,  FITTING  3-11 
CURVE  FIT  TO  TEE  TABLE  I AT A 


10 

20 


601 


6o: 


10 


SUBROUTINE  FIT11  (5CRL,GE0H,WKI,Wi(R) 

BEAL  WKR ,C,AREA,DH.L,W,H,CPSiaE,A,Y, 

INTEGER  SORL,GECB,WKI 
DI3ENSION  WKI  (2)  ,WKR  (4) 

WRITE  (6.  600) 

CALL  oEADR  (a,  5) 

WRITE  (6.601) 

CALL  bEA0R(W,5) 

WR ITE  (6,  60  2) 

CALL  READS <L,S) 

X*  L/H 
Y»W/H 

IF((X.GT.0.0) .AND. (X. LT.2.8))  GO  TO 
C=j.«347-0.0992»X 
GO  TO  20 

C=|UjO.  8  504  5*1) -5. 21  052)  *X*9.  1399)  *X-2.  168)  *X*0. 0545 

K= 0.4 704* EXP (-0.3558*  X) +0.67 
C?RIHE*C*K 

‘  3»(h< 

H*W 

geo  a 
1 1 

AREA 
DH 

CPHIHE 
AREA 


DH»2 

AREA 

WKI 

BKI 

WKR 

WKR 

WKR 

WKR 


>W)/  (H*W) 


600  FORBA  t  (' 
♦  *  SET  I 


_  YOU  HAVE  SELECTED  A  SERIES  90 

SET_IN_A  Z-SHAP2D  CONFIGURATION. •/ 


DEGREE  RECTANGULAR  ELBOW'/ 


♦THE  HEIGHT  OF  THE  ELBOW 
♦  NS  OF  THE  TURN)  • 

FOH3AT  ('  WHAT  * 

s]tHE 


THE 


CROSS-SECTION?'/' 
WIDTH 


••FIRST  QUESTION,  WHAT 


■»  •  WUbOAAVnf  >  US  A 

(DIHENSIOi  IN  THE 


IS 

PLA 


-  ___  _  OF 

♦'  (THE  DI3ENSI0N  PARALLEL  TO 
FORHiTt*  LAST  QUESTION,  WHAT  IS  THE  LENGTH 
♦'  Or  THE  "Z"  ENTRANCE  AND  "Z"  EXIT?') 
RETURN 


THE  ELBOW  CROSS-SECTION?'/ 

THE.  TURN  AXIS^ 


WEEN  CEHTE3LINES'/ 


onnonnon 


no non non 


FITTING  12:  SL2CWS  30  DEGSEE  IN  315: EE  I NT  PLANES 

SEr.  ASH E  AE  HANDBOOK,  PAGE  33-  33,  TABLE  3-3,  FITTING  3-12 
COEVE  FIT  TO  THE  TABU  LA TED  DATA 


SOBBOOTINE  FIT12  (SOB L,G EOS , WKI , WKH) 

HEAL  WKH,C,AREA,DH,L, W,a,CPHIB£,X, I,K 
IN  TEG  EG  S 0 EL  ,  G  EC N,  WKI 
Cl. HEN  SIGN  WKI  (  2)  ,  «  KS  (  4) 

•  SITE  (6,60  0) 

CALL  HEADS  (H,  5) 

WHITS  (6,60  t) 

CALL  READS  [S,  5) 

WRITE  (6,  60  2) 

CALL  aEADS  (L  ,  5  ) 

X=  L/H 
1=  S/H 

IF  ( (X.3T.  0.0)  -  AND.  (I.  LT.  1. 4)  )  GO  TO  10 
I?  (X.3E.  1.4)  .  AND.  (X.  LT.  2.0)1  GO  TO  20 
IF]iX.GE.2.J)  .AND.  (X.LT.4.0))  GO  TO  30 

c-L 4-o.  io*x 

GO  TO  40 

GO  ifylfo79343***'5-1*7366)***3'5957)  ****■•  29  8  46)  **♦  1.  20 

C=  ({(1.04 166*1) -5. 357  13) *X*8.o0 118) *X-1  .0057 
GO  T  <5  40  '  . 

C  =  ((  (0.0  0 9  83* X) -0.246 799) *X*1.  154425) *X* 1.7 02965 
CCSTINOE 

K=  0.  4 704  *E XP  <- 0.3553*  Y)*0.67 

CPBI3E*C*K 

DH  =  2.0*(H*W)/(H+B) 

AF.£A=H*tf 
SKI  M)=GSOfi 
WKI  i'll  =12 
WKF.  i  1)=AHEA 
WKE  i  21  =0 H 
WK  K  i  3  )  =C  P  B IH  E 
WK  S  l'  4)  =A  SEA 

FOSHA1  ('  XOO  HAVE  S2LECTED  A  SET  OF  90  DEGHEE  SECTANGULAE  ELBOWS 


♦  IN  DIFFERENT  PLANES.  «/'  **FIEST  GJESTION,  WHAT  IS  THE  HEIGHT  OF  T 
♦HE  ELEOW  CHOSS-SECIIO N? •/’  (3 IB ENSIGN  IN  THE  PLANE  OF  IHS  TOE N 


cETUHN 

END 


nnonnoon 


nnnonnnn 


FITTING  13:  EBANCH  SECTION  DIVERGING  WYE 


Sir.  TDEL'CHIK,  HANDBOOK  0?  HYDRAJLIC  S  ESI STANC2 ,  SECTION  SEVEN 
PAGES  247-253 


SUBROUTINE  F I1 1 3  {5  DHL  .GEOS,  SKI,  -KR) 
SEAL  SKR ,  ALF  AD . AC, AS 
INTEGER  SOSL.GECa, VXI 
CISENSIDN  SKI  {2),3KR  («) 

Sails (6.6001 

CALL  READS  (ALF  AD,  5) 

-SITE  (6.60  11 
CALL  3 EADS  (AC ,  5) 

S SITE  (6,  60  2) 

CALL  READ  R  (AB ,  5) 

SKI  (1)«GEOS 
SKI  2  =*13 
MKH  1  -AC 
SKE  2  -AB 
HKS  3  =ALF AD 
SKE  U  -A3 


FORMAT  ('  TOG  HAVE  SELECTED  THE  BEANCH  SECTION  OF  A  DIVERGENT  3YE. 
♦•/'  the  fiODOLE  COOLING  AIB  SHOULD  3E  EBANCHING  OFF  THE  SAIN1/ 

INLET  AND  FLCBING  TH800GH  THIS  SECTION.  THIS  SHOULD  BE  THE  •/ 

♦  •  FIFST  FITTING  OF  THIS  BSAtfCH.  '  / 

** FIRST  QUESTION,  WHAT  IS  THE  ANGLE  BETWEEN  THE  SAIN  FLOS  •/ 
AXIS  AND  THE  BRANCH  FLOW  AXIS  (DEGREES)  ?•) 

FORMAT  (•  WHAT  IS  THE  CROSS-SECTIONAL  AREA  OF  THE  COMBINED  FLOS'  / 


FORMAT  ('  SHAT  IS  THE  CROSS-SECTIONAL  AREA  OF  THE  COMBINED  FLOS'/ 
SECTION?  THIS  IS  WHERE  BOTH  ENGINE  AIR  AND  COCLING  AIR  FLOS'/ 
DOST  UPSTREAM  OF  THE  BRANCH.') 

FOHHA  T ('  LAST  QUESTION,  SHAT  IS  THE  CROSS-SECTIONAL  AREA  OF  THE  E 


♦RANCH?’) 

RETURN 

END 
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nnnonnnn 
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fitting  iu:  sain  section  diverging  rye 


REF.  IDEi'CHIK,  HANDBOOK  OF  HYDSAJLIC  RESISTANCE,  SECTION  SEVEN 
RAGES  247-253 


nnnonnnn 


onnnnnno 


FITTING  15:  BRANCH  SECTION  CONVERGING  WYE 


H  EF.  IDE  L  ’ CH IK  ,  HANDBOOK  OP  H YD BA 3 LI C  R ESI  STANCE ,  SECTION  SEVEN 
PAGES  247-253 


SOE BOUTINS  PIT  1 5  (SORL , GECH, WKI,  WKR) 
HEAL  HKR.ALFAC.AC,  A3 
INTEGER  SORL.GiCS,  WKI 
DI.YENSI0 N  HKI  (2)  ,  SKR  (4) 

WRITE  (6, 60  0) 

CALL  HEADR  (ALFAC,  5) 

WRITEfSToOt) 

CALL  HeAdR(AC.S) 

WRITE  16,  602) 

CALL  READ R  [AB  ,  5) 


600 


oOl 


602 


HKI 
SKI 
W  K  a 
SK  H 
WKB 
SKB 


11-GEOH 


2  >1 

1  -AC 

2  »AB 

3  -ALFAC 
. ,4  -AB 

FORMAT ('  YOO  HAVE  SELECTED  THE  BRANCH  SECTION  OF  A  CONVERG 
3YE.  THE  HOT  NODOLE  COOLING  AIR  SHOULD  BE  JOINING  THE  1 

♦  •  ENGINE  EXHAUST  IS  THIS  MYS.  THIS  FITTING  SHOULD  BE  THE 

♦  •  FITTING  IN  THE  BRANCH.*/ 

♦  |  ••FIRST  ,JUESIIONt  WHAT  IS. TH2_ANGLE  3ETSEEN  THE  SAIN  FLO 

FORHA 

♦  •  SEC 

♦  •  FLOS  JUST  DCBNSTRE  AN  OF  IHEBRANCH.') 

FORK AT ('  LAST  iUESIION,  WHAT  IS  THE  CROSS- SECTIONAL  AB 

♦  •  BRANCH? ') 

RETURN 
END 


'FIRST  DUESTION,  WHA1  IS  THE  ANGLE  SET 
AXIS  AS  D  THE  3RA  NCd  AXIS  (DEGREES)?') 
IT ('  BHAT  IS  THE  CROSS-SECTIONAL  AREA 
iCTION?  THIS  IS  WHERE  ENGINE  EXHAUST 


OF  THE  CCSBINED 
AND  SODULE  COCLIN 


:a  c 


ENT  '/ 

AIN'/ 

LAST'/ 

B  •/ 

FLOW'/ 

G  AIR'/ 

F  THE'/ 
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nononnon 


nnonnonn 


FITTING  16:  MAIN  SECTION  CONVERGING  WYE 


8EF.  IDEL'CHIK,  HANDBOOK  OF  HYDRAULIC  RESISTANCE,  SECTION  SEVEN 
PAGES  247-253 


SUBROUTINE  FIT  16  (SORL  ,GECM,  WKI,  WKR) 

SEAL  4KB. AM 

INTEGER  SORL.GECM, WKI 

DIMENSION  WKI (2) ,SKE (4) 

WHITEj6.  600) 

CALL  rEADB  (AM, 5) 

WKI(1)=GE0.1 
WKI l 2) *16 
WKS  1)  =43 
WXRi2)*0.0 
WKS  3)  =0 . 0 
WKB  4H« 

600  FORMAT (•  YOU  HAVE  SELECTED  THE  MAIN  SECTION  OF  A  CONVERGING’/ 
WYE.  THE  ENGINE  EXHAUST  ALONE  SHOULD  BE  FLOWING  THROUGH  ’/ 
THIS  SECTION.  IT  SHOULD  BE  THE  LAST  FITTING  OF  THE  EBANCH.’/ 
♦’  ** JUST  ONE  QUESTION,  WHAT  IS  THE  CROSS-SECTIONAL  AREA  OF  THE’/ 

♦  *  MAI  U  BRANCH?*)  ' 

RETURN 
END 


78 


nnonnonn 


FITTING  17:  CO  NCI  AL  DIFFUSES 


REF.  IDEL’CHIK,  HANDBOOK  OF  HYDRAULIC  RESISTANCE,  SECTION  FI7E, 
PAGE  167 


SUBROUTINE  FIT  17 (SOBL .GEON, WKI, WKK) 

SEAL  WKR.L.00 , D1.X1.K 2, A3, A 1 . TK ETA , C EX? , CFR ?s I 
INTEGER  GECN,  SCSI,  «KI  , ANS, YES, NO 


All  i-U  IQ  JUOk]  m  JLDi,.  «1U  «  J  ,  A  r  .1  ^ 

DIMENSION  WKI  (2)  ,  »KR  f  0) 

OAIA  12 S/*  Y'/.  NC/' N'/ 

WRITE  (6,  600) 

CALL  hEADR  (L ,  5 ) 

WRITE  (6. 60  T) 

CALL  SEAOR  (DO ,  5) 

WHITE  (6,602) 

CALL  nEAOR  (01,5) 

WRITE  <6.  60  1) 

READ(S,e04,iNQ*l4,SSR*14)  ANS 

I?  <{ANS. EQ. YES). OR,  (ANS. EC. NO) )  30  TO  16 

StWIND  5 


WHITE  (6,608) 

GO  TO  12 
CONTINUE 
K  1  *  1  •  0 

IF  (ANS.SQ.  YES)  K1=0.8 
AO  =0 . 7854*00**2 
A1=0. 7854*01**2 
IF(AI.GT.AO)  GO  TO  20 
WHITE  (6.  605) 

GO  TO  10 


•  2*i) ) 


READ (5,o04 ,E8R=24, SMD=*24)  ANS 
IF  (Ians. EQ. YES) .OR.  ( ANS.E3.WO) )  GO  TO  26 
rewind  a 


WRITE  (6,608) 

GO  TO  2  2 
CONTINUE 
K2*l. 0 

IF  (ANS.SQ.  YES)  K2=*3.6  5 

IF  (THETA.  GT.O.  7)  GO  TO  40 

CEXP*  1.3  4  5  4*  (THETA**  1 .2)  «  (1. 3-A0/A1)  **2 

GO  TO  60 

IF  (THETA.  GT.  1.05)  GO  TO  50 

CSXP=  ((( (-0. 36  37*THET A) -0. 871 5)  *rH2I A* 3 . 02 1 8) * THETA -0 . 6 4 10)  * 

♦  (1.  J-AO/A  1)  **2 
30  TO  60 

C£  X?  =  ( (( (-0. 00  61*THET A) -0. 013  9)  *THETA-0.092  93) *THETA* 1 . 2623 ) * 

♦  M.  O-AO/A  1)  **2 
CONTINUE 

CFEPrM 1. 0- (AO/A  1)** 2)/ (8.0*SIN(THETA/2.0)  ) 

WKI  1  =,  E0.1 

WKI  2  *) 7 

WKfi  1  *A0 

WKR  (2  *CFR?RI*K2 

WKE  i '3 '  *CSI P»K  1  *K2 

WKR  4 (  *A  1 

FCBHli  (’  YOU  HAVE  SELECTED  A  CONICAL  DIFFUSE?  WITH  CIRCULAR  •/ 

♦  •  INLET  AND  OUTLET  SECTIONS.  '/ 

♦  •  **FI SST  QUESTION,  WHAT  IS  THE  LENGTH  OF  THE  DIFUSER?') 

FORH AT  ('  WHAT  IS  THE  INLET  0IA.1ETEF.  7  ' ) 

POBHATi'  WHAT  IS  THE  OUTLET  DIA.1ETER7’ ) 

FCRSATl'  IS  T  HERE  A  NON  -U  N  IFOR  .1  VELOCITY  DISTRIBUTION  AT  THE  IN 
♦X  (t/N)?') 


LY  DISTRIBUTION  AT  THE  INLE 
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*  i<  jN, 


C  FITTING  13:  PLANE  IN- LISE  DIFFUSES 


REF.  IDEL'CHIX,  HANDBOOK  0?  HYDRAULIC  RESISTANCE,  SECTION  FIVE, 
PAGE  171 


SUBROUTINE  F IT  1 8 (SCR L ,G EON , SKI , WKP) 

REAL  WKR.L.H.WO,  w’l.XI , K2 , AO ,A 1 , T HE  - A , CSXP,  C FRPRI 
INTEGER  GEO'*..  SC5L,  «XI  ,  ANS  ,  Y  tS  ,  NO 
DIMENSION  ;(2),9K?.  (4) 

DATA  YES/’ . ’/, NC/'N'/ 

NP.ITE  (6,  6  0  0) 

CALL  HEADS  (L,  5) 

W3  ITE  (6, 6  0  T) 

CALL  READS  (H,  5) 

SHITE  (6,  oO  2 
CALL  READS  (SO  ,  5) 

WRITS  (6,60  3) 

CALL  READS  (91,5) 

WH  ITS  (fa,  60  4) 

READ  (5,605  ,£ND  =  1U,£?Ra14)  ANS 
IF  MANS.  EC.  YES) -OS.  (  ANS.  SQ.  NO)  )  GO  TO  16 
SZ.9ISD  5 
WHITS  (6,609) 

GO  TO  1  2 
CONTINUE 
X  1  *  1  •  0 

IF  (ANS. SI.  Y3S)  K 1  =  6 . 3 

A ) =9  0  *H 

A1='W1*H 

IF(AI.GT.AO)  GO  TO  20 
WRITS  (6,  oO  6) 

GO  TO  15 


THETA=2-3*  AT AN  (  (9  1-WO )  /  ( 2. 0  *L ) ) 

IF  (THETA.  LT.  0.  Si«)  GO  TO  JO 
WRITE  (o,607) 

READ  (S,o05 ,SND=24,£RR*24)  ANS 

IF  MANS.  Z£.  YES)  .03.  (  ANS.EQ.NO)  )  GO  TO  26 

WRITS  (6,609) 

GO  TO  2  2 


26  CONTINUE 
K  2  =  1 . 0 

IF  (ANS.  3Q.  YES)  K2  =  0.65 
20  IF  THETA. GT. 0. 7)  GO  TO  40 

CEX?  =  1.2454* (THETA** 1 .2)*(1.0-A0/A1)  **2 
GO  TO  60 

40  IF  (THETA. GT.  1.05)  GO  TO  50 

CSXP= ( (( (0. J637*THSIA)-0.3715) *THSTA*3. 021 3) *THSTA-0.6  4  10) • 

♦  (1.  0-AO/A  1)  **2 
GO  TO  60 

50  0SXP=  ((( (-0. 00  61*THEI A) -0.0139)  *THETA-0 .09  2 9) *  THETA ♦  1 . 2  6  23)  • 

♦  i.  i-AO/A  1)  «*2 
oO  CCNII NOE 

CFRP5  I*  [  (90/H)  *  ( 1 . 0- A  0/A  1)  *0.5*  (1.0-  (A0/A1)  *•  2)  )  / 

♦  (4  .  J*SIN  THETA/2.  0)  ) 

WRITE  (6^60  3) 

HKI  1)  *GE0.1 

WKI  2  *18 

9KR1  *A  0 

WKE  2  i  *C  FR  PR  I  *  K2 

WKF  3  *C EXP*K 1 *K2 

WKE  4WA1 

600  FORMA  .  ('  YOO  HATE  SELECTED  A  PLANE  INLINE  DIFFUSER  WITH  ONE'/ 

♦  '  DIMENSION  CONSTANT  THROUGHOUT  AND  HECTANGULAi  INLET'/ 

♦  *  AND  CUTLET. 1 / 

♦  •  ••FIRST~iUESTIONf  aKAT  IS  THE  LEU  DIE  OF  THE  DIFFUSE’?’) 


31 


anfinnnon 


6)1  FDRMATf  WH  A  T  IS  THE  CONSTANT  HEIGHT  0:  THE  INLET  AND  CUTLET  •/ 

♦  •  CROSS-SECTIONAL  AREAS  ?•  ) 

o  3  2  FO  ?M  AT  (’  WHAT  IS  THE  WIDTH  OF  THE  INLET  CROSS-SECTIONAL  AH 

6)3  F  C  R  M  A  T  ( 1  WHAT  IS  THE  WIDTH  OF  THE  OUTLET  C  HOSS-3  ECHO  N  AL  A 

o  J  •*  FORMAT}'  IS  THESE  A  NCN-U  N  IF  Da  .1  /EDO  CITE  D  1ST?.  IS  UT  ION  AT  T 

♦  T  (1/  N)  ?  1 J 
6)5  FORMAT  lA 1 ) 

6 06  FORMAT}’  DOWNSTREAM  AREA  15  NOT  TREATER  THAN  UPSTREAM  AHEA.’/ 

♦  •  FITTING  IS  NOT  A  DIFFUSES.  RE-ENTER  DATA.’) 

637  FORMAT  ('  SINCE  THESE  IS  A  WIDE  DIVERGING  ANGLE,  THE  PROPEEV 

♦  '  INSTALLATIONS  OF  DI7IDING  WALLS  OS  BAFFLES  CAN  REC3CE'  / 

♦  •  THE  RESISTANCE  C?  THIS  FITTING.  DO  ICU  WANT  TO  INSTALL’/ 

♦  •  DIVIDING  .ALLS  OR  3AFFLES  (I/N)?,1 

63  3  FORMAT  ('  NO  MORE  D'JE  STI  ON  S  THIS  FITTING.') 

6)3  FCRMAli'  IOU  MUST  ENTER  A  LETTER  IN  THE  33  ACKETS . '  ) 

RETURN 

END 


return 


nononono 


FITTING  19:  PYRANIDA  L^DIFFUSER^IN 


N  E 

•*•»»• •*•» i 


H£F.  IDEL'CHIK,  HAH03CO X  OF  HYDRAULIC  RESISTANCE,  SECTION  FIVE, 
?AGE  169 


t 


10 


12 


14 


16 


20 


22 


24 


40 


5  0 
60 


600 


S  Oca  COli  Nr.  ri.  li 

SEAL  WKB, L.HQ , SO , HI, W *  ,K  1,  K2, a5 . A 1 , ALFA , BET  A . THETA, CEXP ,CF3 P5I 
INTEGER  GECa.SOBL.SKI ,ANS,YES,NO 
DIMENSION  SKI (2) ,NKB ( 4) 

DATA  YES/' YV,NO/*NV 
WHITE  (6.  oOO) 

CALL  55138  4,5) 

SHITE  (6.  60  Tl 

FEADH  ^HO ,  5) 


i  XT'- 

TAIL  _ 

WHITE  (6,  602) 

CALL  sEAD  H  (WO  , 5) 


SRITE  (6.  60  il 
CALL  sEADR  (H  1,5) 

WHITE  (6,  604) 

CALL  bEADH(H1#5) 

SRITE  lb,  6  0  5) 

HEA0(5,o06,SND=14.ERa=14)  ANS 
I?  (]ahS.EC.YES).ijR.  ( ANS . EQ . N 
H t WIND 


0)  )  GO  TO  16 


SRITE  (6,610) 
GC  TO  12 


K1  =  6. 3 


CONTINUE 
X1  =  1.0 

IF  (ANS.  EQ.  YES) 
AO=WO*HO 
A  1=8 1*H1 

IF  (A  1 .  ST.  AO)  GC  TO  20 
WRITE  (b,  6 0 7) 

GO  TC  10 
ALEA=2.0*ATAN 
3ETA=2.0»ATAN 
TH  ET  A  =  Af1  AX  1  (  A 
IF  (THSTi.LT.  3 
WRITE  (6.60  8) 


(  (Wl-WO) 

/  (2.0*L) 1 

]  jHI-HOi 

/  (2 . 0  *  L) 

£.-A,3sri 
.  324)  GO 

5 

10  30 

REAO  (5, 506  ,END  =  24, EPR  =  24)  ANS 

IF  (Ians. EC. YES) .OH.  (ANS. EQ. NO) )  GO  TO  26 

HcWlND  5 

WRITS  (6,610) 

GC  TO  22 


CONTINUE 
K2-1. 0 
IF  (ANS. EQ.  YES)  *2  =  0.6  5 
IF  (THETA.  GT.O.  44f  GO  TO  40 
CEX?  =  l.o 81 8* (THEIA«»1  .2) *  ( I.O-AO/A  1)  *»2 
GC  TC  60 

I r  'TH  rTA  .  GT.  1 .  C  5)  GO  TO  50 

Csif  *(((  (3.35  98*THSI  A) -9.7924)  «i:i£IA*9.  4559)  *THSTA-  1.  9  229)  * 

(1.  J-A0/A1)**2 
jG  . C  69 

CEX?=1.1»(1.0-A0/A1)**2 

CONTINUE 

CF3f3I*(1. 0-  ( AO/A  1)  ••2)/{3.  J*SIN  (  THSTA/2.  0 )  ) 

SRITE  (6 '60 9) 

SKI  1)=*ECn 
2)  *1  9 

1  »A0 

2 j  »C  FHPBI*  K2 
3|  «CEX?*K1  *K2 

YOU  HAVE  SELECTED  A  PYRASIDAL  INLINE  SECTANGULAH  DIFFUSE 
-  --  '•*-  C?  I  HE  DIFFUSES/') 


SKI 
SKR 
WKH 
WKR 
S K B  i 4 S* A 
FCFHA.  (' 
♦  H.  '/  ' 


*  *  F IHST  QUESTION,  WHAI  IS  THE  LENT 


) 

> 


< 


33 


« 


oooononn 


60  1 

FO  "MAI  (' 

HHAT  IS  THE 

oJ : 

FCRMATf' 

•  HAT  IS  THE 

bJB 

FORMAT  (' 

VHAT  IS  THE 

♦  ' 

TO  THE  SMAL 

0  0  4 

FORMAT  (' 

HH  AT  IS  TEE 

♦  « 

TO  THE  LA? G 

o  J  5 

FORMAT  (' 

♦T  (Y/N)?« 

:s  THi?.2  A 

o06 

FCFMAT (A  1 

oO  7 

FORMAT  {• 

DOW  H STREAM 

♦  « 

FITTING  IS 

dOB 

FORMAT  (' 

SINCE  THERE 

AT') 

LL?.T.  '  , 


:u. 


in  le 


609 

oU 


FO 
r  0 


ENI 


PM AT  (' 
F  M  A  T  (• 
"OHM 


IS  St 
I  HE 
DIVIO 
SC  .1 
YOU 


ALIA 

ISIS 

IMG 

QSE 

MUST 


HALLS  CP.  BAFFLES  [ Y/N ) ? ' ) 

2UESTICMS  THIS  FITTING.') 

EH  TEE  A  LETTER  IS  THE  BRACKETS.') 


O-t 


►n 
t— i*i 


FITTING  20:  TRANSITIONAL  DIFFUSER 


REF.  IDSL'CHIK,  HANC3CCK  OF  HYDRAULIC  RESISTANCE,  SECTION  FIVE, 
FACE  174 


SUEaOUTISE  FIT20(SORL ,GEOH, WKI.  WKR) 

REAL  WKR,L,H,ii,I,THSTA,AQ,Al,Xi,.<2,CEX?,CFE?RI 
INTEGER  SCRL.GECH.SKI ,lNS,YES,NC 
DIMENSION  WKI  (2),  WKR  (4) 

DATA  YES/*  T'  /,NC/'HV 
WHITE  (0,600) 

WR  ITS  (6,  60  l[ 

READ (5,602, END  *  14 ,  ERR  *  1 4)  ANS 
IF  MANS.  EC.  YES)  .OR.  (  ANS.  EQ.  MO)  )  GO  TO  16 
r  t  w  is  d  5 
WRITS  (6,611) 

GO  TO  10 
CONTINUE 
WRITE  (6.  603) 

CAIL  FEADR  (1,5) 

WRITE  (6.604) 

CALI  5EADR(H,5) 

WRITS  (6.  6  0  5) 

CALI  READS  («,S) 

WR  ITE  (6,  6  06) 

CAIL  i£ADR(D,5) 

If  (AMS. EQ.  YES)  GO  TO  30 


A  J  *rf*  W 

A  1*0.  7854*D**2 

If  (A  1  .GT.  AO)  GC  TO  20 

WHITE  (6,607) 

GO  TC  10 

IHETA=(O-2.0*SCHT(H*W/3. 1416) )/L 
GO  TO  SO 
A  1  *H*  W 

A  0  *  0 .  7854*0**2 
IFIAI.GT.AO)  GO  TO  40 
WRiTS  (6,607) 

GO  TO  15 

THETA*  (2.  0  *S  QRT  <H*W/3,  14  16-D)  )  /L 

CONTINUE 

WPITE  (6,608) 

READ  (S,o02,iND  =  54,E8H*5U)  4NS 
I?  MANS.  EC.  YES)  .OR.  (ANS. EQ. MO)  )  GO  TO  56 
WRITS  (6,611 
GO  TO  52 
CONTINUE 
K 1  *  1 . 3 


If  (AMS. EQ.  YES)  <1=6.3 
IF  (THETA.  IT.  0.  524)  GO  10  60 
WRITE  16,  60 9) 

READ (3,002)  ANS 
.<2*1.0 

IF  (AMS. EQ. YES)  <2*0.6  5 
IF  (THETA.  GT.  0.441  GO  TO  70 
Cl X?*  1.5  5 1 8* (T  H£TA**1 .2)  *(1.0-4 

r  r.  -rn  on  ' 


CEXP*  1.6  6  1  8*  (TH£TA**1  .  2)  •  ( 1 . 0-A  0/A  1)  •*  2 
GO  TO  90 

tt  ,">p *>ri  /•«>  1  n*:  on  •’•O  80 

CEX?*]  ((i3.*3  598*THETA)‘-9.7  324)*THETA*9.4559)  *THETA-  1.  3  2  20)  • 
*  (T.  3-A0/A1)  **2 

GO  TO  90 

CSXP*  1.  1  •  ( 1.  0- AC/A  1)  **2 

CONTINUE 

WRITE  (6,  6  1  3) 

CFRPfi I* J 1 . O- (AO/ A 1)*«  2)/ (8. 0*SIN (IHETA/2.0)  ) 

WKI(1)*^E0.M 


nnnnnofio 


if K ?  h|  =A  0 

SK3  (3  =CE 
W  K  3  ( u  )  =  A  1 

o  3  D 

FCf.HA  .  (• 

♦'  FOUND 

o  0  1 

F3BSA  T  (• 

bj: 

♦V  ( 

FC  BN  A  T  {A  1 

oJ  3 

FCrHAT!1 

60  U 

FCF.1AT  (' 

♦  E  A  ?  1 ) 

o  0  5 

FCEflAI  (' 

♦  A?  1 ) 

606 

FCrNAT (' 

637 

♦) 

rCF.SAT  (• 

♦  1 

63  3 

60S 

fossa:  (• 

♦  T  (Y/N)?< 

FGRHAT  (■ 

♦  • 

♦  1 

♦  1 

ol  0 

fossa:  (• 

61  1 

FCE.HAT  • 
BETUHN 

END 

UND)  •) 


ir 


WHAT  IS  THE  LENGTH  OF  THE  DIFFUSES?') 

•  HAT  IS  THE  3ZIGHT  OF  THE  EEC  TAN  G  UL  A3  C  EC  SS- SECT!  ON  AL  AB 

WHAT  IS  THE  WIDTH  OF  THE  SECTANGULAR  C ECS S-SECTTO NAL  AES 

WHAT  IS  THE  DIAilETEE  OF  THE  ROUND  CRCSS -S ECTIONAL  ASEA  ? ' 

DOSNSTEEia  AREA  IS  NOT  3E  EATER  THAN  THE  'J  ?STH  EA.1  AREA.'/ 

FITTING  IS  NOT  A  OIFF'JSER.  SE-SNTEF.  DATA.M 

IS  THEBE  A  NON-UNIFOR  .1  VELOCITY  DISTRIBUTION  AT  THE  IN  L E 

SINCE  THESE  IS  A  WIDE  DIVERGING  ANGLE.  THE  BSCPEP.  '/ 
INSTALLATIONS  CP  DI7IDIMG  WALLS  OR  3AFFLES  CAN  SEDDCE* / 
THE  RESISTANCE  OF  THIS  FITTING.  DO  YOU  WANT  TO  INSTALL1/ 
DIVIDING  ^ALLS  OH  3AFFLES  (Y/N)?M 
NO  NCHE  QUESTIONS  THIS  FITTING. •[ 

YOU  ausi  ENTER  A  LETTER  IN  THE  3RACKEIS.*) 


nnnrinnon 


I 


FITTING  21 ; 


CIRCULAR  CONTRACTION 


REF.  ASH  R  A  E  HANDBOOK,  SAGS  33.34,  TA  3LE  3-5,  FITTING  5-1 
TA  Eli  INTERPOLATION 


susroutins  fit:  i  (sobl, ueoh, wxi, vxbj 

REAL  WKR.0  0.D1  ,  I,  IHEI  A,  T  ,C  ,  A 1 ,*0,1 

INTEGEH  So  RL  ,  3  *08,  WKI ,  XO  uT 

EIHENSION  WKI  { 2)  ,  4  KE  (  4)  ,  T  (S5)  ,  X  (  2)  ,XOOT  (2) 

3A^A  ^  /q  0  5  w 

♦  ‘  O.'o'lO.  8,30.3,  55. 0,90.0,  120.0, 150.  0,  130.3, 

♦  1.0,2.0,11.0,6.  0,10.0. 

♦  0.0, 0.0, 0.0, 0.0, 0.0. 0.0,0. 0,0.0, 

♦  0.0,0.05,0.  05,  0.06,  0.  12,0.  18,0.2  4,0.  26, 

♦  0 .0,0. 05,0. 04, 0.07,0. 17, 0. 27, 0. 35,0. 41, 

♦  0.0, 0.05,0. 04, 0.07, 0.13, 0.23, 0.36, 0.42, 

♦  0.0.0.05,0.05,0.08,0. 19, 0.29, 0.37,0.43/ 

WRITE  (6,  6  0  6) 

CALL  EEADB  (1,5) 

IF  (L  .  IT.  0 . 05)  1=0.05 

WRfTS  (6,  60  1) 

CALL  nEADR  (01,5) 

WRITS  (6,  602) 

CALL  sEAOSiDO.;)  . 

IH  ETA*  1 1  4  .  3§  1  5  S *AIAN  (  (D1  -00)  /  (2 . 0  *L)  ) 

A1=0.785u*01**2 
A0=0.  7654  *D0**2 
X  [11  *THE  TA 
l(  2[  =  A1/A0 

CALL  TABLE  (T,X,XOUT,C) 

WKI  1)  *GEOM 
WKI  2) =2 1 
WKF.  1 )  =A  1 
WKE i 2) *0.0 
WKR  i  3)  *C 
WKR  4 WaO 

FORMAT  (’  TOO  HAVE  SELECTED  A  CIRCULAR  CONTRACTION.*/ 

♦  •  **  FI  RS  T  C’JESIIO  N,  WHAT  IS  THE  LENGTH  OF  THE  CONTRACTION?*) 

FO  R.N  A  T  {•  WHAT  IS  THE  UPSTREAM  DIAMETER  ?  * ) 

FORMAT  *  WHAT  IS  THE  DOWNSTREAM  01 A  HE  T  SR?  '  ) 

RETURN 

END 


37 


nononnno 


c 

c 

c 

c 

c 

c 

c 

c 


&00 

60  1 
oO  2 

603 

604 


?  ITT  I1!G  22:  3  HOT  A  .'ISO  LAS  CONTRACTION 


HI?.  ASHRAS  .3  A  ND3CCK ,  PAGE  33.34,  TABU  3-5,  FITTING  5-1 
TABLE  INTERPOLATION 


S  J2RO  UTIN  E  P  IT  22  ( SCH  L  ,  S  ECS ,  W  KI ,  BKR) 

SEAL  MKa.X.T, A  1.31, AO , 50 . AREA  1 , AREAO ,C, L, THETA  1 , IEETA2 , THST A 

INTEGER  SOnL, SECS, SKI -Z03T 

DIMENSION  WKl(2),fiKfi{4)  ,1(55)  ,  X  (2  J  ,  XGUT  (2) 

DATA  1/8. 0,5.0. 

♦  0.0, 10.  5, 30. 0,55. 0,90.  0,120. 0,150.  0,180.0, 

1.3,2.0,4.0,6.0,10.0, 


0. 0,0. 0,0. 0,0. 0,0. 3,0. 0,0. 3, 3.0, 
0.0,0.05,0. 05, 0.06, 0. 12, 0. IS, 0.24,0. 26, 
3. 0,0. 05,0.  04, 0.07, 0.17, 0.27,0. 35,0.41, 


0 .0,0. 05,0.04, 0.07,0. 18, 0. 28,0.36,0. 42, 
0.0. 0.05, 3. 05, 0.08, 0.19, 0.29, 0.37, 0.4 3/ 
TE  (6, 6  0  0) 

L  sEADR  (1,  _ . 

‘  05 


•  HI 

CALL  _ .  ,  . 

I?  (L.  IT.  0. 35  f  1=0 
WRITE  (6,  60  1) 

CALL  r.EADR  { A1 , 5) 

WRITE  (6.  602) 

CALL  rEAOa(31,S) 

WRITE  (6.  60  3) 

CALL  nEADR  (AO  ,  5) 

WHITE  (6,  504) 

CALL  5EADR(B0.5) 

THETA  1=1  1  4.591  5  6  *  A  T A  N  ( (A  1- AO) /(2.3»L) ) 
THETA2=1 14.5915o*ATAN jjB 1-30)/ (2.0 *L 
THETA  =AM  A  X  1  ( TH  ETA  1 ,  TH  E  .  A  2) 

AREA  1  =A1 *B 1 
AREAO  =A0*  30 
X  (  1)  *THETA 
X  ( 21  =  ARE  A1/AREA0 
CALL  TABLE  (T,X.XOOT,C) 


WKT 

3KI 

WKH 

WKH 

WKB 

WKH 


1 )  *G  S  0  M 
2  =22 

1) =AREA1 

2)  =0.0 

3) =C 

4)  =AREA0 


FORMA  . (•  ?OU  HAVE  SELECTED  A  BECTANGJLAR  C  C  NTRACTICM . ’ / 

.  - - --- - - -  --  -  - -  --  -  "ONTHACT 


CTION?'  ) 


♦  ’  *  *  F IR  S  T  COESTION,  WHAT  15  THE  LENGTH  OF  THE  CONTI 

FORMAT  ('  WHAT  IS  THE  Lt  AST  UPSTREAM  CROSS-  SECTION  DIMENSION?') 

'  ‘  WHAT  IS  THE  GREATER  7  PST3EA.1  CEO S S- SECTIO N  DIMENSION?') 
WHAT  IS  THE  LEAST  OOWNSIREA.1  IRC  S  S-S  EOT  IC  N  DIMENSION?') 
LAST  QUESTION,  WHAT  IS  THE  GREATER  DC W N STEEA .1 ' / 


FORMAT] 
FORMAT l 
"CRM  AT  I 


:mi.r  La.  .  yuto.iun.  ana. 

♦’  CROSS-SECTION  DIMENSION?*) 
RETURN 
END 


nnni  lonoo 


nnfinonnn 


PITTING  23:  SCREEN 


REF.  ASHRAE  HANDBOOK,  PAGE  j3.42,  TABLE  3-7,  FITTING  7-6 
CURVE  FIT  TO  TABULATED  DATA,  BASED  ON  DUCT  AREA  AND  SCREEN 
FREE  FLOK  AREA. 


SUBROUTINE  FIT23  (SORL,GECM,  WKI ,  W Kfi) 

REAL  WKR. DUCTA.SCRNA, N,C 
INTEGER  502L , G  ECM,  WK* 

DIMENSION  WKI {  2)  ,  W  KR  ( 4) 

WRITE  (6.  60  0) 

CALI  5EADR (DU  CIA, 5) 

WRITS  (6,  60  T) 

CALL  READ  H  (5  C5  N  A,  5) 

N  =  SCR  NA/DUCTA 

C=(( [ (97. 902 1*N) -9 2.  4  45) »N*  32. 0  66) *N-1.  955  7) *N*0.025 
WKI  1)*GEON 
WK I  2'' *23 
WKR  1  *D  UCTA 
WKR i 2  *0.0 
WKR  3  =C 
WKR  4  =DUCTA 

600  FORMAT (•  70  U  HAVE  SELECTED  A  SCREEN  OBSTRUCTION  IX  THE  DUCT.*/ 

♦  *  •*  F I2ST  DUESTICN,  WHAT  IS  THE  DUCT  CROSS-SECTIONAL  AREA?*) 

601  FO RM AT (*  LAST  .UESTICN,  WHAT  IS  THE  FREE  FLOW  AREA  OF,  THE  SCREEN? 

*retur{) 

END 


39 
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FITTING  24:  LC37EF.  ENTRANCE 


SET.  HANDBOOK  CF  HYDRAULIC  RESISTANCE,  ID EL'CHIK 

CURVE  FI I  TO  DYNASIC  LOSS  UFCEHAIION,  NO  FRICTION  INLUDED 


nnnnnono 


v; . 


FITTING  25:  I  SLIT  FILTER 


3SF.  NAVSEA  IN  LET  DESIGN  HANDBOOK 


DEFAULT  S  YSTEfl ,  DD963  TIPS  FILTER,  CURVE  FIT  TC  DATA 
OPTIONAL  FILTEa,  POWER  CURVE  FIT  IS  HADE  ID  PRESSURE  LOSS  DATA 
BASED  CN  FACS  7ELOCITY  ON  FILTER.  DATA  SUPPLIED  BY  USER. 

SUBROUTINE  FIT25 (SCSL ,GEON, SKI. 7KR) 

REAL  WKR  ,  AREA  .  V  El,  DSL  ?,X  X,  Y  Y,  S  J  NX,  SUN  Y,  SUNX  2  ,  S  UN  Y2,  SUN  X  Y  ,  A,  B 

INTEGER  ‘caL,5cCN.WKI,Sl.ANS,YSS,:.Nf  TS.NO 

LINEN  SION  WKI  (2)  ,XKR  (4)  ,  VEL(IO)  ,D2L?  (1  5)  ,XX  ( 10)  ,  YT  { 10) 

DATA  YES/*  V/,  NC/>  SV 
WRITE  (6,  SOD) 

CALL  READR (AREA, 5) 

WRITE  (b.oO  1) 

READ  (  5,0  02  ,iN  D  =4,  ERR*  4)  ASS 
IF  (]ANS.  SC.  YES). OH.  (ANS.EQ.SC)  )  GO  TO  6 
REWIND  5 
WRITE  (6,607) 

GO  T3  2 
CC  NTINUE 


IF  (ANS.SQ.  YES)  GO  TO  30 
WRITE  (6,  oO  3) 

CALL  REA  01  (NPTS,5) 

DO  10  1=  1 .  NPT3 

WP ITS (6,604)  I 
CALL  READR  (VEL  (I)  ,  5) 

WR  ITS (6,6  05)  I 
CALL  READR  (EELP(I)  ,5) 

XX  (I)  =A  LOG  (VEL  (I) 

YY  l)  *ALOG  (EEL?  (I)  ) 

CONTINUE 
S  U  N  X  ■  0 . 0 
SUNY»0.U 
SU*!X2»0. 0 
SUN Y I  =0.  0 
SUNXY=0. 0 
DO  20  1= 1 , NPTS 

SUNX*SUNX*XX  (I) 

SUNY*SUNY»YY  (I) 

SCNX2*SUNX2+XX(I)  •  *2 
SUNY2*SUHY2*YY  I  « «2 
SOHXY  =  SUNXY*XX  (I)  «IY  (I) 

CC  NTINUE 
N*FLCAT(NPISJ 

a»  (N*su<xY-suax»suNY)  /(N*suax2- (suax»*2n 

K-tXl  (SO  N  Y/M-3*SU  NX/N  J 
WRITS  (6,  606) 

GO  TO  43 
A=0. 0 167 
3= 1.6297 


WRITS  (6, eO 6) 
CC  NTINUE 
W  K I  ( 1  1  =  J  SO  S 

WK I  j  Ij  =2  5 

WK?  ?1) =Afl£A 
WKR  (1)  =A 


"  EX  l  *-  I  “■» 

WKR  (3)»a 
WKR  4[ -AREA 

FCRHAI  ('  YOU  RAVE  SELECTED  THE  INLET  FILTER  .'/ 

♦  '  **FIRST  QUESTION,  WHAT  IS  THE  TOTAL  FACE  AREA  OF  THE  FILTER?') 
F08NAT ('  DO  YOU  WAfcf  TO  USE  THE  DD963  TYPE  FILTER  IN  IHS  DRY  CCND 

♦  IIICN  jT/N)?*) 

FORNAT  (A  1) 

FCRNA1  ('  THR  CCRSATTSG  C H A  3 ACT  SR  I  ST  ICS  OF  YOI15  F'TTi;  VilM.  3?’/ 


THE  OPERATING  CHARACTERISTICS  OF  YOUR.  FI 


♦  *  DEFINED  3  Y  A  POWER  CURVE  FIT  OF  THE  FDRN: '// 

♦'  DELIA  PRESSURE  *  COE7A  *  FACE  VELOCITY  *•  IOEF3  '// 

♦*  APPLIED  TO  PERFORNANCS  DATA  TC  3 E  INPUT  3Y  THE  USER.'/ 


31 
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FITTING  26:  SILENCER  MULTI-BAFFLE  TYPE 
SE-.  NA7SSA  III  1ST  OSS  1311  HANDBOOK 

COMPOSITE  LOSS  COEFICIENT  3ASED  jn  a  sudden  contraction, 
FRICTION  AND  A  SODDEN  EXPANSION 


600 


60  1 
bO  2 
603 

60  4 

b  0  5 


SOEHO  0IINE  FI726(SCRL.G£CM,  WKI,  NKR) 

HEAL  WKR  ,3  ,T#  L  ,  H,  CX,  A  u,  A  1 ,  OH,  a,  0 1  ,  C2  ,  C3  ,  D,  N 
INTEGER  SOnl, 3ECM, WKI 
DIMENSION  WKI  (2),SKR(4) 

WRITE  (6,600) 

CALL  r.EADR  (G,  5) 

WRITE  (6, 60  T) 

CALL  M0fi(*,5) 

WRITS  (6,602) 

CALL  REA  D  ft  (L  ,  5 ) 

WRITS  (6,60  3) 

CALL  READR  (H  ,  5  ) 

■  RITE  (b,  bO  4) 

CALL  moR(CX,5) 

WRITE  (6,  b0  5) 

CALL  nEA □  B  (if,  5) 

A0=CX*H 
A  1=N*G*H 

DH  =  2.  0*0* H/ ( 3  ♦  H) 

P=  (CX-N*G)  /  !  2 .  0*N) 

SUDDEN  CCNTh  ACTION 
0*0.  1141*  ((E/DH*0.1) 

FRICTION 
C2*0. 05*L/DH 
SUDDEN  EXPANSION 
C3*0.  47*  (1  . 0  - N  *G/C X)  **2*0.02 
COMPOSITE  COEFICIENT 
C=C1*C2*C3 
WKI  (1)=3EC« 

•WKI  (2)  *26 
WKF 
HKS 
WKE 

W  K  R  ,  - , 

FC  fiMA  T ( 


■14. 4405) * (1 .D-A1/AD) 


YOU  HAVE  SELECTED 
EACH  SAFFLE  HAS  A 


FORMAT 
FOFMAT 
FORMAT  . 

*FoisAT(* 

*FORMAT  (' 
RETURN 


USED  IN 
••FIRST 
WHAT  IS 
WHAT  IS 
SHAT  IS 


A  M  JLTI- 3AFFLE  TYPE 
STREAMLINED  SHAPE. 


THE  ISLETS  OF  THE  DD063.'/ 


SILENCER. '/ 

IT  IS  THE  TYPE’/ 


OUSSTIOS,  WHAT  IS  THE  GAP  BETWEEN  THE  3AFFLES? ' ) 
THE  THICKNESS  0FTHE_3AFFLES?' ) 


THE 

THE 


LEN3TH  0?  THi 
DIMENSION  DF 


3AFFLES? ' ) 

CHE  BAFFLES  PAFALLEL  TO 


THE  3  AP 


WHAT  IS  THE  DIMENSION  OP 
LAST  CUESTICN,  HOW  MANY 


THE  MAIN  DUCT  AC50S5  IHE  3APS? ' 
i  APS  ARE  THERE? ') 


nnnnnnnn 


( Kinonn 


r if i n c i n <  i r i <  j 


r 


FITTING  23: 


WASTE  HEAT  RECOVERY  30ILEE 


SEE.  EXTENDED  SOEFACE  HEAT  IEANSFSR,  D.J.  XEF.NS  A! ID  A. 3.  XEAUSS 
PAGES  532-539 

?  R ELI SIN  AST  DRAWINGS  ON  THE  EACEE  SYSTEH 


e 


13 


20 


30 


40 


50 


o  0 


WRITE  (6,600) 

HEAD  (5,o01,iNC=20,SaR  =  20)  AN  3 
I?  (LANS.  EQ.YSS)  .03.  (  A  NS .  EC .  NO ) )  3 
REWIND  5 
WRITE  (6,602) 

GC  TO  13 
CONTI NOE 
AF.EA  =  o3.  75 
7F ACT-  1.  35095 
C??IftE=35. 02027 
DV=0. 03997 
IFJANS.EQ.  YES)  GO 


0  TO  30 


WEiTE  (6  ,  6  03) 

C All  READS  (DV  ,5> 
WEITE  (6 , 6  J7 ) 

CALL  ?iADH  (OE.5) 


TO  80 


a-  \  v  t  v  J  J  L 

CALL  FtADfi  (aT,5) 

WHITE  (o,60o) 

HEAD  (d,o0  1,iNC=50,E3R  =  50)  ANS 
IF  (]ANS.  EQ. STAG) .03.  ( A  NS  .  SQ . I NLI N E ) )  GO 


i  WIN  D 
WRITE  ( 
GO  TO  4 
CONTI  NOE 
WE 


TO  60 


3 

o,  o  3  2) 

0 


SITE  (6,6  07) 

ALL  FEADR  (N,5) 
WRITE  (6  ,  o  08) 

CALL  R-AOR  (SL,i) 
WHITE  (6,609) 

CALL  =FA0r  (T'-.RI 

3) 


CALL  E  EA  J  E 
WHITE  (6  ,6  U) 

CALL  HiAOE  (XL, 5) 

HIG  n  E5.  7  t ICC  IT 


T  OF  THE  T’J  3 E  SANK 


70 


33 


600 

60  1 
e32 
603 


7FACT=ST/(5T-0E) 

IF  (ANS. EC.  INLINE)  GO  TO  70 
TIST=  (ST*DE)  /2.J 
SD  =  S0r.T(SL**2*  (ST/2.  0)  **2) 

IF  (SE. IT. TEST)  7F  ACT=  31/ <2  .  0*  (SO - D  E)  ) 


(  (SL/ST) **0.6)  *SL*N/0  7 


CO  NTT NOE 
A ?.  :A=TL«TX 

t'lWU  (0V/SI)**0.4) 

C  G  N _ .tuc 

WXI  ( 1 1 =3  EOS 
WK  I  2)  =23 
WK  E  1 1 )  =A  R  E  A 
WKR i 2  =7  FACT 
WXE  i  3)  =C?fiI.HE 
WKR  4(=0V 

FGEHATC  YOU  HAVE  SELECTED  A  WASTE  HEAT  30ILEE.  OC  YET  WANT 

♦  '  USE  THE  PFOPOSED  FACES  DESIGN  DE7  SLOPED  BY  SC. AE  V 

♦  •  TUH3INE3  (Y/N)  ?’ ) 

FD  SH  A  T  (A  1 ) 

?  C  E  .1 A  T  ( '  YOU  HOST  USE  A  LETTER  IN  THE  3HAC  RETS.  '  ) 

■  :it  ”« 


FCSM  a: 


A  NUH3EE 


OUESTIONS  ABE  Hi 


3UNDLE  GE0.1ETEY  TO  OdTAIN  LOSS 


»  i 


■D  ABOUT 
3EFFICIIN 


"a?  *igr  i/ 

:s7 1  / ' 


nnnononn 


"&-0148  708 

UNCLflSSIFIE 

AN 

OJ) 

SEP 

ANALVTIC  MODEL  OF  GAS  TURBINE  ENGINE  INSTALLATIONS 
NAVAL  POSTGRADUATE  SCHOOL  MONTEREV  CA  S  M  EZZELL 
84 

F/G  2i/5 

2/3 

NL 

■ 

^BM 

_ ■ 

k^^B 

MB 

IHUII! 

^Bl 

Ml 

^Ml 

MB 

F08SAI ( 


FCB3AT( 

FOHNAT  ( 
FORMAT ( 
rOSHAT ( 


FOSHATf 
FC  RHAT ( 
FSTORN 
EN 


US E  CONSISTENT  UNITS  (FEET).’/ 

••FIRST  QUESTION,  WHAT  15  .HE  VOLUMETRIC  HTDR  AOLI  C  •/ 
EIA3EX2R?  IF  ICO  DO  NOT  KNOW  3. DUO  FEE!  IS  A  GOOD’/ 

DO  ESS  F03  THIS  APPLIC AIION . • ) 

WHAI  IS  THE  DIABETES  OS  S0UI7 AL2NT  DIABETES  OF  A  •/ 
FINNED  TUBE  IN  THE  BUNDLE  (FEET)?  IF  ICO  DC  NOT*/ 

KNOW.  1.4  TINES  THE  BASE  TUBE  DIABETES  IS  A  GOOD*/ 

COES 5  •  ’ ) 

WHAT  IS  THE  TUBE  SPACING  IN  A  BANK  OF  TOBES  (FEET)?’/ 
TOBE  CENTER  LIN E  TO  TOBE  CENTERLINE. ' ) 

ARE  THE  T33E  BANKS  STAGGERED  OR  INLINE  (S/I)  ?•) 

HOW  NANI  TOBE  BANKS  ARE  THESE  ?•) 

WHAT  IS  TEE  DISTANCE  BETWEEN  THE  TOBE  BANKS  ?•/ 

FSON  THE  PLANE  OF  A  TOBE  CENTERLINE  TO  TOBE  CENTERLINE’/ 
PLANE  OF  THE  NEXT  BANK.') 

WHAT  IS  THE  D OCT  DIMENSION  PARALLEL  TO  THE  TUBES  ?*) 

WHAT  IS  THE  DOCT  DIMENSION  ACROSS  THE  TOBES  ?•) 


uuuuouuu  U'JUUUUUU 


FITTING  29:  AE5UPT  2XIT 


REF.  ASHRAE  HANDBOOK,  PAGE  33.29.  TABLE  3-2,  FITTING  2-1 
THIS  SHOULD  AL.A IS  3E  USED  FOE  THE  LAST  FITTING  OF  THE  ENGINE 
EXHAUST  BRANCH,  NCOS  SIX.  IT  SAX  3E  RSQUI 3  ED  FOH  THE  COOLING 
FLCW  IF  IT  GOES  3IPECTLX  TO  THE  ATMOSPHERE  (CLASS  J£2) . 


SUBROUTINE  FIT29(50HL,GECS, WKI.WXR) 
BEAL  «KR .AREA 
INTEGER  SCRL.GEOS, WKI 
01  SESSION  SKI  (2)  ,3X8  (  4) 

BRIT2  (6,600) 

CALL  9EADR (AREA, 5) 

BKI  Ml  “GEOS 


wxi  2) *29 
WKR  1)  “AREA 

!5S  \  :3:5 

HKR  3 ) “1 . 0 
HK3  4j»AREA 

FOSSA  i  ('  XOO  HAVE  SELECTED  AN  A38UPI  EXIT  TO.  THE  AIS05PH2R2.  •/ 

♦  •  *•  JUSI  ONE  QUESTION,  KHAT  IS  THE  ABEA  OF  THE  EXIT  PLAN 

♦’) 

3ETOBN 

END 

»•••*•••••••••••••••*•• ***•*••*•**••***»* •  ••*• a **»•»» ••••••••■ 

^fiitisg^jo^^fiiting  of^ xour^choice^not^d'* .a5M2 

NO  REFERENCE.  THIS  IS  INTENDED  TO  3E  A  CATCH  ALL  FITTING  FOR 


SUBROUTINE  FIT30  (SOP.L  ,  GEOS,  WRI,  WKR) 
p  c  it  -jrc  i  r  r  in 


SHITS  (6,  600) 

CALL  .  2ADR  (AI,  5) 
WRITS  jb.  60  f) 

CALL  EEiOE  (C.5) 
WRITE  (ST 6 0  2) 

CALL  ?EADR(AO,5) 
WKI (1 ) “G  EOS 


SKI  2  “33 
WKR  1  »AI 
WKS  2  “0.0 
NR?  3  “C 
WKR  4  “AO 
FOES  A.  (•  5 


FCFB  AT  (’ 

►  • 

►  • 

FOES  AI  (' 
BSTU8S 
END 


SINCE  THE  PBOGRAS  IS  LI3XTED  IN  THE  NUSBER  OF  FITTINGS’/ 
TOR  BHICH  IT  CAN  PRODUCE  PERFCRSANCE  CHAR  ACT  EE  1ST  ICS, > / 
THIS  OPTION  ALLOWS  THE  USER  IC  INPUT  CHARACTERISTICS*/ 

OF  A  FITTING  NOT  LISTED. '/ 

••FIRST  DUE  STICN,  WHAT  IS  THE  CH A R ACTERISTIC  AREA  OF’/ 
THE  FITTING?  THROUGH  THIS  AREA  THE  FLCW  PRODUCES’/ 

A  V*LOCITT  USED  TO  CALCULATE  THE  VSLCCITT  PRESSURE.’) 


nnoononn  oooonnnn 


c*»* *••»••• •••*•«••«••*••*••****••**••»•*•••••**• 

C  TABLE  INT2  EPOL ATION  SDEECUTINE:  PRODUCES  7  ALUE  FROM  2-D  TAELE 

C 

C  INPUT  A  ONE  DIMENS ION AL  ARRAY  "?».  CONTAINING  THE  FOLLOWING 

C  INFORMATION:  NUMBER  OF  X'S,  NUN 3 SB  OF  Y'S,  THE  X'S,  THE  Y'S,  THE 

C  TAELE  STARTING  WITH  THE  SMALLEST  X-Y  7 ALOE  INPUT  EX  BOH 

C  INCREASING  X  7 ALUE S  WITH  ROWS  INPUT  WITH  INC3EAS ING  I  7 ALUES. 


SUBROUTINE  TAB  L£  IT.  X,  XOUT,  ?F) 
INPUT:  T,X,  OUTPU  T:ICUT,?F 
DIMENSION  T(23Q),X (2)  ,  NN (2) ,  XOU 


DIMENSION  t (230) ,X (2) ,NN (2) ,X0UT(2)  , F  (100) 

BEAL  N27 

INTEGER  7  (2)  ,XINIT{2)  ,IINC(2) 

NX  I*  1 
NN  II)  *3 
NN  2)  “3 
10*3 
MXI*3 
H»1 

LOOP  DETERMINES  STARTING  POINTS  IN  T  ABRAI  FOR  INTERPOLATION 
DO  20  1*1,2 


!C*NXI*T(I)  -1 

IF  (X  (I)  .  GE.T(NXI).ANO.XJI)  .  LS.  I  IK)  )  GO  TO  3 
IF  X  CUT  OF  RANGE,  INFORM  USER  tHA?  TAELE  I 


NTEFPCLATICN  IS  SOT 


POSSIBLE. 

XOUT  (11*0 
GO  TO  999 
32  XOUT  II)  *1 
J*NXI 

21  L=(J*X)/2 

IF  I  (X  (I)  «T  (J) )  *  (X  (2)  “I  (L) )  .  GT.D.)  GO  TO  23 
K*L 

GO  TO  2<* 

23  J*L 

24  IF  ( (X-Jl.  GT.  1 1  GO  TO  21 
L*K-NN(I)/2 

IrlL.Li.  NXI)  3C  TO  2S 
K;Sxi*T(Ii-&N  IT) 

It  (.«  *jT.  H j  L*  !\ 

,  GO  TO  26 

25  L* NXI 

26  I2*IQ*T(I) ♦(L-NXI)  *M 
IA*0 

IF  (I.  ME.  1)  IA-NN(I) 

X INC  III*  S*  (X  (I) -I A) 

XINlT  It)  *L 
AXI*NXI*T  (I) 

M*M*T  (I) 

20  CONTINUE 

wh 

NX  X*  N  Nil  1 

INTERPOLATE  IN  FIRST  DIMENSION 
T^I^NXX,  ^ 

:.'1tIbpola1t'|1^ST5econd  'dISeSs^Sn* 
ii  i;*ic*xi»c  (i) 
m*nn7ii 

f^sW  4»V\2)"fT  (x,2)  ,T*  XIi,IT<2,  *p>  ,*s’ 

99  iM^O.  0 
RETURN 
END 

FUNCTION  TO  RETURN  INTERPOLATED  7 ALU E  FROM  TABLE 
FUNCTION  NET (X, AX, NX, AX, NY, N) 

FUNCTION  NIT  PlPFORMS  AN  "N"  POINT  INTERPOLATION  FOR  X 
STARTING  A I  ABSCISSA  ARRAY  AX  (Si  X)  AND  ORDINATE  ARRAY 


nnnoonnn 


orinnnnon 


nnononn 


nnnnnn  nnnnnni 


duct  data  file  output  subboutine 


WHITES  THE 
ALLOWS  TEE 
•WAEMIHG- 

SU3B0QTI 8  E 
SEAL  WCBK8 
INTESEB  SO 
3IHENSI0M 

wans  (6.6 

CALL  3Ea5i 


CALL  3EAj  I 
•  BITE  (3,6 
■  BITS  (3.6 
30  10  1*1, 
3 a  ITS  ( 

CCNTISOE 
BEHIND  a 
rOESAlI’ 

♦  FILS?*/* 
FORMA  T  (16) 
FORMAT  (X  3) 
FCSM  AT(I3  , 
FETURS 
•MS 


S IS t EM  ABBA XS  WORXI  AMD  WOBKB  13  THE  DOCI  3ATA  FI1E. 
3SE8  TO  SEaiALIZE  EACH  FI IE  CaEATED. 

MBIT ES  OVER  OLD  FUSS,  SATE  THEM  ONDEB  A  IIFSBEMT  SAME. 

SOMCUT(MOBKI,MOBKB,M) 

BKI.M.SEBIAL 

BOBKI  (200,2) ,ROBKB (200,4) 

02)  M 

'•6a3>  SdSKi  Sf  21  •,0“*  "•  ’>  •1°‘”>1-21  • 

BHAT  SEBI1L  MOMBEB  HOOLD  TOO  LIKE  TO  SITE  THIS  DOCI  DAT 
TOO  MAT  USE  UP  TO  A  SIX  DIGIT  IMTESEB  MOMBEB.') 

3X,I6,3X,I2,3X,F10. 4, 3X,F 10.4,31, FI 0.4, 31, FI  0.4) 


BEAL  MOMBEB  BEAD  5U3BC0T INE :  FB  EE  FOBMAT 

PBETEMTS  THE  IMADTEBT EMI  EMIBI  JF  NULL  DATA  (HITT IMG  THE  5ET33M 
MET  WITH  MO  EMT3T)  AND  IMCOEBECT  DATA,  THIS  BOUTIN2  IS  USED. 
^IT^ALLCWS ^FB EE^FOBMAT  INEUT.^IWO^MUlIs  KILLS  THE  PEOGBAH. 

SOEBOUTT  ME  BEAES  (AMS  B, FD) 

BEAL  AMSB 

IMIEGEE  COOM7, FI 

COCMT-O 

CC  Mil  HOE 

C3U5T*C30MT»1 

IF  (CCOHT.LI. 3)  GO  TO  20 

CALL  FETCH S  ( ' C13SCHS  •) 

WHITE  (6,60  0) 

GO  TO  40 
CONTINUE 

BEAD  (FD,*,EMD«30, EBB-30)  AMSB 
HSTURM 
BE WINS  F 3 
WHITE  (6,601) 

3C  TO  13 
COMTIMOE 
STCP 

FOBMAT  (////•  PROGRAM  KILLED  -  TWO  MOLL  STEINGS  EMTEEEC! '/) 

FOSMAT  i '  WARNING:  MULL  S7BIMGS  ARE  NOT  ALLCWSS,  EMT2E  A  NUMERIC 
♦AL  VALUE. • ) 

END 


nnnnnrt  »•  nnnnnnr) 


■> 


>> 


» 


C  INTEGER  READ  SUBROUTINE:  FEE 2  FORMAT 

C  PS E7ENTS  THE  INADVERTENT  ENTRY  OF  NULL  DATA  (HITTING  THE  RETURN 

C  KEY  « I7H  NO  ENTRY)  AM  C  INCORRECT  DATA.  THIS  SOUTINE  15  USED. 

C  IT  ALLOWS  FREE  FORMAT  INPUT.  TWO  NULcS  SILLS  THE  PROGRAM. 

c. 

SUE ROUTINE  atlCI  .ANSI.  EDI 
INTEGER  . -UUT.  ANSI. ED 
CCU NT*0 
10  CONTINUE 

C  C  UNT*CO  U  ST* 1 
IE  (CCUST.IT. 3)  GO  TO  20 
ca ii  ERTcas  (•tisscas  •) 

Wfi  ITE  (£.  600) 

GO  TO  40 
20  CC  NTT  SUE 

READIED, •.EN3«30,Eaa*30)  ANSI 

33  BENIN  C  ED 

WRITS  (6.63  If 
GO  TO  10 
40  CONTINUE 

5»CJ? 

600  FOFMAT  (////*  PROGRAM  SHIED  -  TWO  NULL  STRINGS  ENTERED!  */) 

601  EOa.HAT  (•  WARNING j  NULL  STRINGS  ARE  NOT  ALLOWED,  ENTER  A  NOSER  3 
♦ AI  VALUE.*) 

END 

C** ••••**••*•*•**•• ••••***• .»*•****•* ...................... 

C  OPERATING  CONDITIONS  INPUT  SUBROUTINE:  TEMP,  PRESS,  HUMIDITY 

C  3UE500TI SE  TO  INPUT  THE  FOLLOWING  PAEASETEHS: 

C  AMBIENT  TSSPERATUR E  (DEGREES  ?) 

C  ASEIEMT  PRESSURE  (PSIA) 

C  RELATIVE  HUMIDITY  (GRAINS  PEP.  POUND  .IASS  DRY  AIR) 

C  THE  PROGRAM  COULD  3E  MODIFIED  TO  ACCEPT  RELATIVE  HUMIDITY  (1)  AND 
C  CONVERT  IT  TO  GRAINS  RSOUIRED  FOS  JSE  IATEP.  IN  THE  PRCGFAM.  THAT 
C  SCDI5 IC ATI 0  N  SHOULD  BE  ACCOMPLISHED  HESS. 

SUBROUTINE  0 PCC NS (TO, ?0, HUMID) 

REAL  TO,  PO, HUMID 
WRITE  (6.600) 

CALL  aEADR  (TO,  5) 

WRITE  (6,60  If 
CALL  aElDR  (?0, 5) 

Wa:TS(of602) 

CALI  aSAOR  (HUMID.5) 

CALI  FRTC Ha  ('CIRSCRN  M 

600  FORMAT  (*  THIS  PORTION  OF  THS  PROGRAM  INPUTS  THE  ENVIP.C  MENTAL  CCND 
♦ITICNS.'/*  WHAT  IS  THE  AMBIENT  TEMPERATURE  (DEGREES  F) :■) 

601  FORMAT (*  WHAT  IS  THE  AMBIENT  PRESSURE  (PSIA)?*) 

632  FORMAT  (*  WHAT  IS  THE  RELATIVE  HUMIDITY  (GRAINS  PER  POUND  AIR)?*) 

RETURN 
END 


sv 

I  *  . 


%  .  •  .* 


\  A  .'.  AV-  _  . 


nnnnnnnnnno •  o  r.nnoon 


nonnnn 


rrw; ■  T T".  t .  ®T 1 5* -  ■-  --  ■  1  .■  *  » ■.»  "5  \ *  '1 » \ ^  ■  -  y-«t*  Y’«v'  .  « 


k  ‘ 

V  • 


?C3£S  XHPUT_SU3aCUTr^S(fiC3iE?CaE?*<,?CVEB*'TUF3IME**P*? 

■  19  IHS3S?  TOSOa|  II  a  ITS  APE  NOT  EXC 

5  *  O !!  /■.  5  »  -  u  _  .15  •«  T"  :?n'!7CTn  i«n 


does 


PHELININAST 


D\ 

zzzzo 

*  > 


“**•*  *C 


30 

40 

603 

601 
6  02 

o03 


"n  **i  [6  .  w  uu  I 

C All  SaOHIH?,') 

NHITE  16.631) 

C All  HSAOB  (NPT.S) 

lr  1200.6)  .AMD.  (NPT. IE. 3600.0)  )  50  TO  30 

*aii_  (O.  OU  j) 

GO  TO  20 
CO  NT  1  NOE 

(?17JbI»7*95^2?T°L*  (8-  3275-0 . 00 12*T0)  »N?T 

If  (HP  .4,1.  HFTP)  GO  TO  40 

*5”=  <v02> 

Go  TC  10 
CCNTINOE 

caii  Fsrcasc  cifscaN  m 

POaSATl’  ISP-JT  THE  POttEH  SETTING  TOO  D ESI3E.  •/ 

♦  •  is  THE  HOBSEPCOSa?' ) 

cSi2$l(!  SIJSSi1  13  132  poasa  ToaaiNE  speeo  (epsi?*) 
♦cesepcJee  ?PBSi?03Ea  13  S0T  03  *3£  ? eefortance  oaf,  pick  a 

11  s‘»"“ » 

v E *0f H 
END 


LOWER  H 

EV 
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engine  subroutine:  confutes  operating  point  fce  gives  conditions  * 

REF.  7 IS 2 5 00  SABINE  GAS  TURBINE  PERFCSSAMCE  DATA.  PEEPAEED  3Y 
GESEEAI  ELECTRIC  COMPANY  MARINE  A  S3  INDUSTRIAL  PRCJ  ECIS 
DSPASISE  ST.  Nil  SEES  Si  1-13-250  3-  9,  SEVIGE3  SGVEM3EE  1973. 

ENGINE  PERFORMANCE  IS  REPRODUCED  3Y  SIGHING  A  3T  A  S3  AEG  CONDITION 
OPEEAIING  SAP  AS2  APPLYING  CGSS  ECTIONS  POP.  0  FT- STAN  IAE  3 
OPERATING  CONDITIONS.  SAIN  INTEREST  IS  TO  OBTAIN  32,33,  ANC  TS. 
5?C,T54,AND  NG  ARE  ALSO  PP.0VI3EG. 


T  _nr«,  .jr  . 

♦  SFC.TS4C 

INTEGER  OFF 
C2C*T0*459.67 
I2C*?0 


DELTA  IS  CHE  PRESSURE  COSECTION,  THETA  THE  TESTER ATORE  CORRECTION 
INLET  ANG  EXHAUST  LOSSES  ARE  A  SEPARATE  COSEECIION 
GELTA=P2C/1<*.  696 
T2ZIA=T2C/518. 67 

CO  ERECT  0ESIR2E  3HP.NPT  TO  STANDARD  CONDITIONS,  INPUT  TO  ENGINE. 

3HPE*BHP/ (D2L7 A*SORT (THETA)  )  • 

•  NPTE=NPT/SOR! (THETA) 

CAIL  LS2500(3hEE,N?.E,N2S,333,T9S,P8S,SFC5, T5«S , NGS ,OF F) 

IF  (OFF.GT. 0)  GC  TO  23 

CORRECT  STANDARD  ENGINE  PARAMETERS  TO  OPESATING  CCNDITIONS. 


T8C=CFT3 (T85, THETA, IN10SS, 
?ec=CFP8  <?6S, DELIA. SXLGSS) 
”f>srr<; 


SFC*SFCS 

IS4C  =  C?T54  (T54  S.IHETA  ,I.<LOSS,  EXLCS3,  HUMID,  NGC) 

CONTINUE 

PETUP.N 

END 

FUNCTICS  TO  CORRECT  GAS  GENERATOR  SPEED 
FUNCTION  C  FN G( NG,I MET  A, LNLOSS , GXLOS3 ,H3  SID) 

SEAL  THETA  (INLCSS,EXLCSS,H03I5,.IG,  AD  iLPI,  ADELPE,  ACELH, 

♦  CF, CFNG 

IF  (NGC.LS.  9100.0)  GO  TO  10 
I r  (NGC. G E .  9203  •  0)  GC  TO  zO 

AG  EL? 1=0. 0  00732* (NGC-  9130.3) *0.  3 3 05c 7/1 30. 3 
GO  “C  33 

ADEL?  1=0.000733 

GC  TC  30 

ADEL?  I=- 0.0013 

CONTINUE 

AC  £L?  E= 0 . 0  003  5 

AGELH=-3. 002200/100. 3 

CF=(1.J» AD  EL  PI* IN LOSS) • ( 1. 0»ADEL?E*EXLOSS)  • ( 1 . 0*  ACELH*  H  GRID) • 

♦  ioSI  (THETA) 

CESG=NG*Cr 

RETURN 

END 

FUNCTION  TO  CORRECT  HASS  FLO*  SATE 

FUNCTION  CFW  (S .THETA , DELIA , INL03S. Z XLC SStd OSI C, NGC) 

REAL  W.IHETA, J ELI A, IN  * OSS, EaLCS 5, HUM  LG, NGC , ADELc I  ,A«SL?  E, AD  ELH, 

♦  C*  CFS 

IF  (NGcILe.  9100 . 3)  GO  10  13 
I:  (NGC. GE.  9230 .3)  GO  TO  23 

AGiL?I=-3. 00 3 75- (NGC- 9100.0) *0, 003317/100. 0 


nnnnr.ni  mnr 


go  to  30 
AO E1?I— 0. 00075 
jC  kO  30 

AO  EL?  1—0 . 00  1 6  67 
CONTINUE 
ADEL?Z*0.  000475 
AD ELH  — 3.0  35423/103.0 


AD  cL H  — 3.0  35423/100.3 

•(1.°*ADZLPS»2XLG5S)  •  (1.  3*A0Eia«H USID)  * 

cf«*5«cf  w  *  ' 

SETORN 

END 

FUNCTION  TO  COPFSCT  T9 

FUKCTICN  CPT3  (T9,  TEST  A,  INLCS5  .  Z  XLOSS  ,  HO  SID ,  NGC) 

cl'  CF^S*'  l:,^css*  E&LOSS,auNID  ,  Ng£,  ADEL  I,  AC  ZIPS,  ADELH, 


I?  (NGC.LS.  9100.0}  00  TO  10 
IFjNGC.GE.  92  0  0. 0)  30  TC  20 
AD ELP 1=0. 0  0105*  (NGC-9 100.0) *0. 


00  TO  30 
ADEL? 1*0 .00105 
GO  TO  30 
AD  EL? 1*0. 002292 
CO  STINU5 
ADELPE-0.  00095 


001242/100.0 


ADELH— 0. 000643/100.  0 

.c?*  AD£LPI*INLC3S)  *  ( 1 . 0*ADEL?Z*EXLCSS) 

r  r  —  Q  a*  /-  e* 


CFT8»T9*C5 
PE  10  BN 

s:;c 

FUNCTION  TO  COSEECT  ?8 


* ( 1 . 0»  ADELH* HU3ID) • 


Cr  »]1 . 0*0. 0024  1  •EXLOSS) « 
CF?8»?9*C?  ' 

PETOSN 
ESC 

FUNCTION  TC  CORRECT  T5U 


l^fXTON  CFT5MT54,r9;TA, INLOSS, EXLOSS. a: 
+  FiA-  (;54j,Tri|rA,INL6sS,2XLQSS,3U3ID,:iGC,  AI 

I?  (UGC.iz.  9100.0)  GO  TO  10 

T7  1‘ir.r  -  ?  i  -it  45  X 


H'JNID.NGC) 

ADELPI, ADtL? Z,  ADELH, 


IF  (UGC.LZ .  9100.0}  GO  TO  10 
IF  (NGC.3Z, ,3200.01  SO  TC  20 

^3’  J  00  95  6*  (NGC-  9100. 0) *0.001/100. 3 

v>s~  *  0  33 

ADEL? 1*0 . 0  0395 £ 

SC  TC  33 

ADEL?  1*0. 0  01958 

CONTINUE 

AD  EL?  E*0.  00056 

ADELH— 0.002057/100.3 

=  i^i2t  'D£1-‘?L*ISLGS5)*(1.0*ADEL?S*EXLD53)  *  (1.0*ACELH*HUMID)* 

CTT5  4*CF*  754 

PETOSN 

en: 


« 


r*-  •  i  ; 


-i:503  ENGINE  TABULATION  OF  PERFORMANCE  DATA  FC?.  ST2.  CONDITIONS 

THIS  DATA  IS  TAKES  FROM  CASS  NUMBERS  536  IT  637  PAGES  171-15, 

OF  THE  3S  MANUAL.  EXTRAPOLATED  VALUES  PROVIDED  31  THE  AUTHOR 


M 


USING  GRAPHICAL  TECHNIQUES. 

■  ■  ■ . .  *•« 


5  Ucf  D  UTI S  E  LS25C0 (Sn? , NPT, 32 , W3 , T3 , P 8 , SFC,  C54, MG, OFF) 

HEAL  EH?, MPT, 22, SB, 18 .  ?3 . 3FC,  T5  4  ,  N  5,  X, 

►  «2I ,  W3T  ,C  8T,?aT,  S?cf,C5i7.  NS7 

INTEGER  DFF,XCCT 

DIMENSION  i{2[,  IOU7  ( 2 1 , «2T  (o4)  ,237(64)  ,T3T(64)  ,?3T(o4)  ,SFCT(o4)  , 
T5-T  164)  .SGT  (64) 

3. 3,6.0, 


♦  43. j, 61. 2, 74. 3,39. 7, 117. S, 125. 7, 133. 6, 141.  3, 

♦  --.4, 62.  “73.3,56. 41113. 3, 123. 9, 127. 3, 134.  3! 

♦  5  1 .  7,6  4.  5,7  5.  1,9o.  4  ,  112.  4,  1  19.  7,  12  6.4,  13  2.9, 

♦  54. 7 ,6  6. 4, 76. c.  96. 7, 112. 2, 119. 2^125. 5, 131.6/’ 

3ATA  «8r/  9.3, 6. 3. 

♦  100  0.  3, 3  00  0.  0,5003.  0,  1  3000 . 0 .  1 5 000.  0 .  175 0 0 . 0 , 20 00 0.  0 , 2250  0.  0, 

♦  1200. 0.1800. 0.2400. 0,3000. 3, j300 . 0 . 3o 00. 0 . 

♦  41.  9, 67. 7,  37. 2, 122. 0,149. d, 160. 0,17 2.  5, 181. 0, 

♦  40.2,6  1. 3,  77.4,  106.  1 ,  1 23 . 5.  13  3.  9,  1  43.  J,  1  5 3 . 0, 

♦  43.4,61.3, 74.2,99. 1,118.3,126.7,134.3 „l4 3. 3, 

♦  46.5,62.  9,  74. 1,96.9  ,  114.  1,  12  1.  3,  12  8.  3,  135. 6, 

♦  51. 3,64. 3, 75.4,96.9, 113.2,120.0, 127.5, 134. 1, 

♦  54. 1 ,6  0.6,  7  7.0.97.  3,  1  13.  1,  120.2,  126.6,13  2.  9/ 

♦  1 000. 0,3 00 o.'ojsfioo.  0,  10000.0.  15030.0,  1750  0.0,20  000.0,2250  0.  0, 

♦  1203.0.  1  300. C. 2400.  3, 3000. 3, 5300. 3, 3o00. 3, 

♦  1  1U4.  .  1  1  53  _  .  1l9n.  .  1395.-1632-  .  17  551 .  1  R77  '  ">(100  .  . 


♦  133  4  1321.  ,  1304.,  1  296.,  1323.  ,  1 332 . ,  1  347 . ,  1 366 ./ 

co  /  3  0  6  0 

♦  100  0.3,  3  300.'  olsSUQ.  3,  10000.  3,  15  000.0*  1750  0 . 3 , 20  00  0.  0 , 2250  0.  3, 

♦  1230. 3(1  30 3.  4 1 240  3.  0l3300.J,*300.3,3o30.0,  '  ' 

♦  14.  70, 14.72,  14.  73,  14. 73, 14.35  , 14. d§, 14.  94, 15. 31, 

♦  l4.’f0,  14.7  1  ,  14.  73,  1  4.75,  14.  79,  U.  31,  14.3  31  14.351 

♦  14.71,  14.7 i;  14.7*1  14.741  14.77,14.7  3,  14.30 1  14.31 1 

♦  14. 7i; 14.721  14.72,  14.7  41  14.76,  14.  77ll4.79ll4.d0l 

♦  14.  71,  14.7  2,  14.731  1  4. 75l  14.  76, 14.7  7,  14.  76, 14.3  31 

♦  14.71  14.72.  14.7  31  1  4.7 5l U.  76,  1 4.7  71  1  4.  7  8,  1 4.  7  9/ 

OATA  5FCT/  3. 3,6.0, 

♦  1  30  3.3,3  000.  0,5000.  0,  10000.  0,  15000.0,  1 750 0 . 3 ,2 0 300.  0 , 2250 0.  0 , 

♦  120C. 3,  1300.  0,2400.  0,3000.0,5300.0,3603.  0  , 

♦  1. 4  967, 3. 3632, 0.  73 60, 3. 6802, 3.  71 35, 3.  74  00, 0. 7740,  0.3  1  33, 

♦  1.  5251, 0.7 993j  3.64  1  61 0.5303, 3.  5  1  33 ,3.  503  1  1  3.  51351  3.  52  131 

♦  1.7  335,3.333  4,3.642  0, 0.4352,3. 4433,3.  *34  2,0.  4237,  0.4  2451 

♦  2. 3262,0.9162,0.6734,0.4916,3.4313,3. 415 1,3.40331 3. 39471 

♦  2. 2151, 3.9 75 Slg. 7106, 0.50 43,0. «3 52, 3. 4155, 0.40 3ll0. 3933! 

♦  2.  4083.  i  .03 7«!3. 74 76 10.5210 ,0.  *44? ',3.  42221  3.  40561  0.  3940/' 

OATA  T54T/  8. 0,6.0, 

♦  1000.0,3000.  5,5000.  0,  1 0000.  0 ,  1 5 000 . 3 ,  175 0 3 . 0 , 20 000. 0 , 2250 0.  0, 

♦  1200.0, 1900.  0,2403.  0,3000. J.  5300.  0,3o00.0, 

♦  1214.,  1273.,  1 556.,  1  615.,  13  91.  ,2  3 33. ,2173.  ,23  13.  , 

♦  125  8.,  1290.1  1342.,  1  50 9. lied  4.,  1  762.,  1350.,  19  40.1 

♦  13  3  3.,  13  34. ,  1373.,  1  489.,  1623. , 16  91  .,  1  755.  ,  16  38. 1 

♦  134  2.,  13  37.,  1423.,  1  524.1  16^3.  ,168 j.,  1739. ,  1733.1 

♦  1364.,  14  17.1  1455., 1543.1  1650.1169/.!  1  744.  1  1793.1 

♦  1389.,  1447. J  1433.,  1  575.1  167  3.  ,  17  18.,  1  764. ,  18  10./ 

DATA  NGT/  3.  3,6.0, 

♦  100  0.0,3  00  0.  0,5 000.  0,  10000. 0,  15000. 3,  17500 . 3,20000.0 , 22500.  0, 


JU'J'  iUU 


1L3C.3,  1830-  3,  24  00-  0,3300.  0,33  33.  2, 3600.  3. 

'r.  3  -  w  *  £.  ^  -»  i  t  i  i  jc..a  2  i  i  j  nit  i  *•. 


X  (1)  =  3H? 

x  (:{ =s-PT 

call  :ablz  iv2T,i,xou7  ,h 

CA 11  TA3L2  (»8T#X,X0CT,'«8 

CALL  1A3L2  (rat.x.xcur ,T3 
CALL  TA3L2  P 3T .X, XCUT . ?3 
CALL  TABL2  (SFC.,X,X03T,SFC) 

CALL  IABL2  (TSUT.X.  XOUT.TSuJ 
CALL  CA3L2  (NCT.X.iCUr ,SC] 

IF  (  (  XOuT  (  1)  .  3T  .  0)  .03.  (XO  u?  (2)  .3  7.  3)  )  CO  1C 
OFr  =  1 
CC  TO  23 
CFF=3 
CONCLUDE 
FHI3FN 
HMD 


rmnnnm  mOn 


FA N  CHAR  AC TEE  I ST ICS  INPUT  SU3ROUTIN2 

THE  DEFAULT  FAN  CHARACTERISTIC  WAS  PROVIDED  3Y  JOY  IAN  UFACTUR ING 
CC -IP ANY  AMO  IS  FOB  THE  FAS  INSTALLED  OS  TH E  SPEUANCE  CLASS 
DESTRCYE S .  OTHER  FANS  ARS  MODELED  AS  A  QUADRATIC  EQUATION 
WITH  A  MAXIMUM  AT  MAXIMUM  FAN  PRESSURE  AND  DISCHARGE 
AND  AN0IH2S  POINT  AI  MAX  1.1  UH  CISC3AP.G2  AND  ZERO  FAN  PRESSURE. 


3DER0UTINE  FAN  (RHOSTD , CFMO , CFMM AX , DPMAX ,X) 

REAL  RHOSTD, CFMO, CFMM lx,  DPMAX, X 
INTEGER  YE  S, A  N  S,NO 
DATA  YES/'  17,  NC/'  V/ 

DO  YOU  WANT  THE  DEFAULT  FAN,  TH 2  DD  S63  CLASS  DSSTRCYE3  FAN  ??? 
WRITS  (6,60  0) 

READ  (5,o01,2N0*4,ERR»4)  ANS 

IF  UANS.  EO.  YES)  .CR.  (  ANS.2Q.NC)  )  GO  TO  3 

Rewind  3 
WRITE  (6,632) 

GO  TO  2 
CONTINUE 

IF  (ANS. 20.  YES)  GO  TO  10 

A  DIFFER  *NT  FAN  HAS  3EEN  SELECTED ,  INPUT  RE30IRED  PARAMETERS 
WRITE  (6,  60  2) 

CALL  ReA  D R  (H HO  STD,  5) 

WRITS  (6,603) 

CALL  READS  (CFMO, 5) 

WRITE  (6,  60  4) 

CAIL  rEADfi  (CFaMAX,5) 

’WRITE  (6,  oO  5) 

CALL  READS  (DPMAX, 5) 

K=-1.  C*DPaAX/  (CFfiO-CFaMAX)  *«2 
GO  TO  20 

FOLLOWING  ARE  VALUES  FOR  THE  DEFAULT  FAN 

EHCSTD-3.071 

CFMO=24300.3 

CFMMAX=1 1 000. 0 

DPMAX=27. 7 

K  =  ”1.0*OPMAX/( CFMO— CF  HMA  X)  »*2 
CONTINUE 

FORMAT  (*  YOU  HATE  SELECTED  A  SYSTEM  WITH  A  COCLING  FAN.  THE'/ 

♦  '  DEFAULT  SPECFICATIONS  ARE  FOR  THE  FAN  INSTALLED  ON'/ 

♦  '  THE  DE963  CLASS  SHIP. '// 

*■  '  DO  YOU  WANT  TO  USE  THE  DEFAULT  SPECFICATIONS  (T/N)?') 


FC  SJ!A"  (A  1  > 

FORMAT  ('  THE  PROGRAM  WIL. 
♦  '  EQUATION.  TWO  POINI 

»  '  CUR  V  FS  AND  THE  REFS 


WILL  APPROXIHAIS  YOUR  FAN  WITH  A  QUADRATIC'/ 
POINIS  ARE  REQUIRED  FRO  a  THE  FAN  ? ERROR  HA NCE • / 
REFERENCE  AIR  DENSITY  OF  THE  CURVES. 


♦  •  IS  : 
FORMAT  (' 
FORMAT  (' 

♦  ' 

♦w .  o. )  ?  v  • 
FETUnN 
END 


D  (CFM)/DP»0.  '  ) 


( INCHES 


nonnonnoon 


nnnnn  non  n  n  n  ri  n  n  ci  n  on  on  on  0000000000000 


FITTING  PRESSURE  LOSS  Ci LCULATION  SUBROUTINE 


SUBROUTINE. 


INTEGER  TYPE 
DIMENSION  X (2) ,1(45) 

GAS  CONSTANT  AN£  ECUS HNESS 
DATA  5/53. 3424/. 2/0. 30015/, 

^A  oEYNO^g  NUMSjfi  CORRECTION  FOR  SMOOTH  RADIUS  3ECT  ELBOWS 

♦  'l. 0,5. 3. 5. 0.4. 0,6. 3, 3.0,  13. 3, 14. 3, 23. 3, 100. 3, 

^  J#5  J»7*  4«7 

♦.  1.V5,  1.  H,  i .  1 9 , 1.  14,  1.  39,  1.06, 1. 04,  1  .  3  0,  1.00,1.  3  3, 

♦  .  2.03, 1.77,1. o4,1. 56, 1.46,1.33,1.33,  1.  15, 1.00,1. 30, 

♦  2.0  3,  1.77  1.o4.1.5o.  1.46,  1.33,  1.30,  1.  15,1.00,1.3  0/ 
COMPOTE  VISCOSITY  OF  AIP  34522  3S  TEMPERATURE  6*  AlS 

MU*  (29.354  0.  18  9304*TI  N-i.  o7  537S-3  *7I’J»*  2) *  IE- 7 
ASSU.M E  A  7 ALOE  FOfi  9HC 
RHC=  r TIM/ ( H*TI  N) 

VELOCITY  IS  THE  MASS  FLC8  SATE  DIVIDED  BY  DENSITY  AMO  THE  FLOH 
AF.Fi:  7*g/A  ***>  3*  HASS  FLO  8  HAIE/P.HO 

V= 4/  (SH3*0ATA1 1 
PEES  SURE  75LOCITY  (PSF) 

?V*EHQ*V**  2/ ( 2 . 3*3..  1  7U) 

COMPUTE  THE  STATIC  PHESS:  E33ALS  TOTAL  PRESS  -  TELOCITY  PRESS 
PS*  PI IN-PT 

CCMPUT2  OEMS  IT Y  OF  GAS  ENTERING  FITTING  USING  PERFECT  GAS  LAS 
R HOT*  PS/ ( R  *TIN 1 

COMPARE  ASSUMED  RHO  AND  COMPUTED  RHO 
TSST*ABS (RdCT-HHO) 

ASSIGN  Sit  VALUE  FOR  RHO 
5HC*SHOT 

IF  ASSUMED  RHO  NOT  EQUAL  10  COMPUTED  FHC  RESUME  INT23ATI0N 
IF  [TEST.GT. 0.301)  GO  10  5 
SE YNCLOS  NUMBER 
RN*RHC*3ATA2*V/M0 

BRANCH  FITTING  TO  CORRECT  DP  COMPUTATION  CODE 

GO  TO  (13, 20, 10, 10, 30, 30. 40,10, 17, *3,30.30. 50,63. 73, 93, 90, 

♦  30, 90, 90, 100,  100, 10,10,113,  10,120,  l5o, 10, 19)  ,  IY t>E 


SIMPLE  FITTING,  COEFFICIENT  TIME. 
FITTINGS:  1,3, 4, 8, 9,52,24,23,23 


ES  VELOCITY  PRESSURE 


0?*C ATA3  *PV 
?TCUT=?TIN-OP 
TCUT*TI3 
GO  TO  140 

STRAIGHT  DUCT.  FRICTION  FACTOR  IS  COMPOTES  BY  CORRELATION  IN 
SHAMES,  MECHANICS  OF  FLUIDS,  PAGE  230,  CORRELATION  OF  5«AMEE  AND 
JAIN. 

FITTING:  2 

F*0. 2 5/ (A LOG  10  (E/(3.7*DAIA2) ) *5. 74/SN**0.3)  **2 
LOSS* JF*  1/3) *7 ElcCIIY  PRESSURE 
2?*F*  all  A3 /b AT  A2*PV 


c 


nn^nonnof  innr  in 


"CUT*? 

•j c  rc  1 4  o 

ELBCK  SITS  BEI.iCLDS  NUMBER  CORRECTION  FACTOR 

FITTINGS:  5,6.13.11,12 

XRE*1 .370 1-0. l4c5*ALGG<EM*1E-4) 

D?*CATA3 *KRS*?7 
1C  07  =  TIM 
PTQUT*PTIS-DP 
30  TO  140 

SMOOTH  RADIUS  RiCTANGDLAB  SL30X  XITHCUT  VANES,  REINOLDS  NUMBER 

correction  from  tabes  listed  is  data  this  subroutine. 

FITTING:  7 
BW*0ATA4 
0=  DAT  A3 

IF  (HS.GT.  1  3000 .0)  GO  TO  41 
KB £*1.7 
GO  TO  42 
I(!)=i» 

X(IJ*F.H 

C  All  TABLE  (T.X.XOUT.X  BE) 

D?*C  *KH£  •  P  v 
TOUT* TIN 
?TCCT=?T I N -DP 

30  TC  140  . 

BRANCH  SECTION  CF  A  DIVERGING  VIE.  LOSS  IS  DEPENDENT  ON 
VELOCITIES  IN  BAIN  SECTION  1VDHS),  COSEINED  SECTION  [VDKC) 

BRANCH  SECTION  (V0W3)  AND  D*7 ESSENCE  AN3LE  OF  FITTING. 

VELOCITIES  COMPUTED  IN  THE  5XST2S  SUBROUTINE,  PASSED  TO  FIID?  AS 
INPUT  DATA. 

FITTING:  13 

TEST*  (AD NS -A DSC) /XDKC 

IF  (TzJt.  LI.O.  35)  GO  TO  51 

K2*( (  !-3. 59l47E-3*AL7AD*3.8309E-6) *ALFAD*3. D033574) * 

♦  a£?AD*0. 00 10339) *ALFAD*0. 030017 

C=  1.  0-(7DWB/7DSC)  **2-2.0*(VDXB/VDXC)  *COS (ALFAD/57 .3) -K2* (VDX3/ 

♦  VDXC1  **2 
GO  TC  52 

K  1  *  1 .  3 

RH* VD  K3/ V  D  WH 
IF (BR.GT.  3.8)  X1*3.9 

C*K1*  (1*  3MVb«E/VDXCl  **2-2.0*  (7  DX  B/V  DKC)  *CDS  (ALFAD/57. 3) ) 
?7*?HC*7DKC«*2/(2.3*32. 174) 

D  f *C*  ?V 

?V=RHC*VDX9**2/  (2.0*3  2.  174) 

PTCDT  *PTI N-DP 

tcot*:in 

GO  TO  14  3 

SAIN  SECTION  OF  A  DIVERGING  VIE 
FITTING:  14 

COEFFICIENT  BASED  ON  THE  RATIO  CF  VELOCITIES  VDWN  AND  VDSC 
CC  S P'JIED  IN  THE  SrSTSM  PAST  OF  THE  PROGRAM 
C*  0. 4  * ( 1 . O-VDHH/VDNC)  **2 
?V*5HO*VO«a**2/  (2.  0*3  2.  174) 

D?*C*?7 

PV*RHC*VDXM**2/  (2.0*3  2.  174) 
rTCUT*PIIN-DP 
TO  CT*TIN 
GO  TO  140 

BBANCH  SECTION  CF  A  CONVERGING  XI  E.  IRE  JUNCTION  CF  NODDLE 
COCLING  AIR  (BRANCH)  KITH  THE  ENGINE  EX  HAD  ST  (SAIN),  NODE  5 
FITTING:  15 

ALL  INPUT  COMPUTED  IN  THE  SISTE3  SUBROUTINE  PASSED  TO  FITDP 
C= 1.0* (VCXB/VCXC) **2-2.0*ACXM/ACXC*( VC.d/VCXC) **2-2 .0*ACX3/ACWC« 


"•  »  'n  k  -  * 


i 


♦ 


30 


90 


C 

c 

c 

c 

c 


c 

c 


♦  J7C39/VC3C)  ««2»C0S  (ALFAC/57. 3) 

?V*nHCCC*VCiC**2/(2.0«32.  17.) 
0?=C*  ? V 

»TC'JT*?Ila-DP 
TC5T*?T0  "JT/  ( R  *  RHCCC) 
oo  rc  1 4  0 


lz:l  J2*,2I  -ON  VERGING  -i  ye.  the  path  foe  engine  EXHAUST 

PART  OF  ?  ROC  EAR  AND 
21*(1-ALFAC/60)  “  (AC33/ACHC) *0.4 


NCOS  5,  FITTING:  16 
Ail  7Z.0Ciri|S  CCBPUTSD  is  systei  past  of  pbogsas  A  S3 

xiiffis.  ~l3? 


X  1  =  1.  15*  <ACWa/ACWC)**2.; 
TEST*A8S l (ACHS-ACKO  /AC3C) 
It  •  0 .  3  5)  X 1  ?3  ,  3 


••2-2.0* 


133 


110 


123 


7.  0*.(yC»S/VC«C)  *»2-  2. 3  *AC» 1/A  CWC* ( VCS  1/7 C  SC)  •• 

(ACSB/AC3C)  *1VC«B/VCWC)  ••2*0  03 (ALFAC/57 . 3) *K1 
PV=RHCCC*VCHC*«i/(2.0 *32. 174)  ' 

DP*C*PV 
PTCUT-PTTN-DP 
TCCT*PTD UT/(H*RHOCC) 

30  :c  140 

DIFFUSERS 

FITTINGS ;  17.16.19.23 

FRICTION  INCLUDED  IS  THIS  FITTING 

L*SORT  4. 3*DATA  1/3. 1416) 

•  3N»6HC«L*V/!!U 
LA  IDA *0.  31  64/S S»« 3. 25 
Cr  F*£ATA2*LA8DA 
C=CFR  *QATA  3 
DP=*C*E7 
?TCUT*?TIN-DP 

tcut*tin 

GC  10  14  3 

CC  NT2ACTI0  NS 
FITTINGS ;  21.22 
7*M/  <RH0«DAIX4) 

?7=EHC*V»*2/ (2.0*32. 1 74) 

0?=0AIA3*P V 
?TCUT*pri3-DP 
Tooi=r;s 
GC  TO  140 

ISLET  FI IT EH 
FITTING:  24 

PRESSURE  LOSS  EASED  ON  FACE  VELOCITY 

:o  :o:,VEET  :!,CH  13  Ic  ?SF 

?rc)T*PTIS-DP  ' 

T3UT=TIS 
30  TO  140 

pUfiff  itiiki-xin&r ?as  s"5:8s'  3jt  :he  »«  for 

{cplK^p36j*«.;?!,ifSi.U696OF  330LI!,C  U5  rHEC3GK  iaE  ,00Ui: 

P /* J • 0 

rICUT=?riN-DP 

THE  FOLLOBISG  -CDS!  FOR  NOD OLE  TEN?  CUT  SHOULD  3E  REFINED 
IT  IS  OUST  A  3 1ST  "GO  ZSS-IX2ATE". 

TOUT* TIN *2  5. 0/S* (HP/2  0030. 3*103.0) 

HASTE  HEAT  30IIEH,  GAS  SIDE  PRESSURE  LOSS 
*  I  •  *  I  NC  •  if 

BASED  ON  TUBE  BUNDLE  GEC3STSY.  VELOCITY  IN  THE  NARRCS  PASSAGE  0 
OF  THE  TUBS  BUNDLE,  FRICTION  r ACRTOR  ,  F,  A  FUNCTION  OF  REYNOLDS 


c  sonses 
u:  •/*;•  data: 

it* e.*Q»V2/  {  2- J* 3—  17  4) 
a:i»F  Hu*»*3ATi4/«U 

?*  1.  3  24*8  (-0.1453) 

:r»r*c*rA3«pv 
;:cot«?t;s-o?  ,  , 

T0UT“0. 33  185»H?*347.0*T0 
SHO*  (iS-O?)/  (MTOUT) 

7*::/  [S HO  •DATA  1 ) 

?V«SHC (2.0*32. 1 74) 

■JC  TC  14  0 
C 

C  SO  :105E  FITTINGS,  IF  TO'J  ADO  A  OIFFEBENT  TT  P£  OF  FITTING 

C  SICUIFIMG  A  OIFFtSIST  3ETH0D  OF  CONFUTATION,  THE  .1ETHOD 

C  SHCOIO  OO  HEBE  . 

140  CONTINUE 
6  E  T  J  R  S 
END 


no 


non  nnnnnnnnnnn 


dm-  matching  subroutine 


IS  7H 

SIX. 

FOE  r 

PSCCE 

DUCT 

DUCT 


DOSSES.  NO  JUNCTIONS  ARE  PRESENT. 


S0S8C OXIME  SYS1  (SERIAL,  N.WOEKI,  WORKR  ,jiP  ,NPT,  c  IT  1ST.  13,  ?0,  H'JKID, 
♦  aHaSTC.CFMQ.CFMMAX,D?MAX.Xl 

real  nob xa. a?, net. to,  p6.  aoai5,c?N.*iIx.cFa5.bpa»x,K.iii,M8,?8,T3, 


BRANCHES.  STABT  AND  STOP  SX  THE  SEQUENTIAL  INDEX  SCM6ES  IN  DUCT 

DATA  FILE 

P=  FIT  1ST  2  -1 

0  =  FI T 1SI  3  -1 

3=  FIT  1ST  4  -1 

A*  FIT  1ST  2 

3*FIX1SI  3 

C=  FIT  1ST  4) 

INITIALISE  INLET  AND  EXHAUST  DOCT  LOSSES  (INCH  WG) 

INL0SS*4. 3 
3XLCSS*8.3 

IlfITIALIIE  COOIING  FLOS 
WC=20 .3 

INITIALISE  LOSS  IN  3BANCH  4-5  (PSF) 

D?45*100.3 

WITH  ASS  USED  LOSSES  GET  THE  ENGINE  PERFORM A  NCI 

CALL  EN3INE(INICSS,  EX  LOSS,  TO,?O,3UMID,H?,NPr,i«2,W0,?8,78,SFC, 

♦  T5  4,  NG,OF  F) 

IF  (OFF. 30. 31  GC  TO  o 
WRITE (6,o00) 

GO  TO  530 
CONTINUE 

INITIALISE  CONDITIONS  FOa  STABI  OF  BRAN  CH  1-3,  ENGINE  INLET  FLOW 
DP  13*3.3 

INLET  PRESSURE  IS  ABBIENT  (PSD 
?TIN*?0« 144. 0 

INLET  TEMPERATURE  IS  1KBIEHT  (DEG  E) 

::N=T0*459.7 
DO  13  I*1,P 


TXPE*w6rkI (1.2) 
D ATA1 * WORXR  (I, 1 

pa—  It  ^ 


CATAS*SCaXa (I, 21 
DATA3*WCHKH  1,3) 

DATA4*BCRKR  (I,  4 j 

CALL  FSTDP ( 82, HP.  ? TIN , T IN. PTOJ T, TOUT ,?T ,  DATA  1 , DA  IAS , C ATA3, 

data4,typs,de*p,5.  ,0.^3., 5., d. ,5. ,:. ,o.  ,3., 3. ,3.  ,3. Id., 

3.  ,3.  ,  10) 

DP  (I)  *0*L? 

DP13*DP13*DEIP 


FIT?7(I)*PF 
PTXN* ?TOUT 
TIS-TOOT 
CC  NT I  NOE 

INITIALIZE  ISLET  CONDITIONS  FOR  BRANCH  3-6 
PI IN*  ?8* 14  4.  0 
TIN»T  9 


nnnnnnnnnnn 


y; 

Cv 

.  *  * 


>.y 


r 


i .  • 

r 


C  ATAl 1 


WOHXH  1,1 
-  I,  2) 


0ACA2*WCSKa _ _ 

C ATA3*  SOB KB  (I,  3  j 

cali*  ?roj:,roai,?7, 3  at  a  1,  oat  a2,  data  3, 

♦  3AIi4,TY?i.3£.lP, 3.,3.,3.,0.,3.,3.,3.,0.,3.,0.,3.,0.,3., 

♦  0  •  ,0  • ,  1 0) 

DP  (I)  *021? 

CP  J6*DP  36  +  DEI? 

FITPV ( II*  PV 
?TIN*?TOUT 

ns*rooT 

30  CONTINUE 

C  IF  THE  EXIT  PBESSUBS  IS  HOT  1HBI2HT,  BSP EAT  OHTII  IT  IS 

TEST* ASS (PTOOT-PO*  14  4.3) 

IF  (TEST. LI. 1.0)  30  CO  40 
?TIN*?0*1 44.0*D?36 
30  TO  20 
40  CONTINUE 

C  CO  Sp ABE  AS SUN  S3  IHI2T  AND  EXHAUST  LOSS  SIIH  THE  COHPOTEC  I0S3ES 

C  If  THEY  DO  HOT  AGS  EE  SEP  EAT 

IHIOSS*IH LOSS* 5. 19696 
EXICSS*2X1CSS*S. 19696 
IEST1*A0S (DP 13-IHL055) 


50 


55 


60 


30  T3  5 
CH  2-4 

PTIN*  PQ*  1 4  4.  3 
3? 24*0-3 
TI N*T0*459.7 
DO  50  I*  A  ,  3 

TYEE*S0SKI (1.21 
3ATAl*K0BKB  (1,1 
DATA2*H0EXfi  1,2 
3ATA3-BOBKB  1,3 

CA1I* FIT3P JSc'dP,  PTIN, IIS, PTOUT, ICUT,?V,  DATA}, DAT A2, DATA  3, 

♦  DATA 4 , TT?2,Cil?,0.,0.,J.»3. ,J.,J.,u.,3. ,0. ,4. , 0 . , 0 -  , 5- , 

♦  0-,0-,-C) 

DP  (II  * D EL? 

D?54*DP24*DEIP 
FITPV (I1*PV 
PTIJi*  PTOUT 

ii:i*tout 

IP  (TYPE. EC  .26)  THCD-TCOT 
CCNTINU2 

IN  ITT All  22  CONDITIONS  FOB  38ANC3  4-5 
T4*T0UT 

?TIN»?0* 144. 0*  0P45 
1IS*T4 
CP  45*0.3 
DC  63  I*C,  N 

TYPE*B05KIJI,2) 

CATA1*N38KH  (1,1) 

3AIA2-HOBKB  1,2 
CATA3*  SOBKB  1,3) 

DATA4*S0SKB  1,4) 

DpiHoISl^DEIP 

FITPY (I)*P» 

PTIH* PTOUT 
TIN-TOOT 

IF  (TYPE. EJ. 26)  T30D*TCUT 
CO  St  I  SUE 


i:  sx it  ocmdittcm  condition  is  mot  a.13isnt  pressure  repeat 

TEST*ASS  (PTO'JT-?0*144 .3) 

IF  (IS ST.  IT.  1 .  J)  00  TO  70 
GO  TO  55 

FAN  r  HESS  U  62  RISE 

FA:JDF*7d?240P45) /(14  4.3*0.03o09l 

MATCH  cLOK  TO  3X31*0  FOR  ME XT  I TER AXIOM  MIT"  MCN 

CALI  FA.MHAT2»C,T3,P3,  FANDP.  r.HOS  TO  .07  HO  ,  TFSH  AX, DP MAX  .  K,  WCM) 

IF  ASSUMED  FiCi  MATCHES  MATCHED  FLO 4  XCJ  ARE  FINISHZD 
TE  ST*  A3S ( MCN-MC) 

MC**CU 

I*  (TEST. 3T.0. 1)  30  TO  45 

ASICS  THE  INFO  PMATICN  TO  AM  OUTPUT  FILE 

CALL  OUTPUT (TO ,?0. aUSIO, HP. 3PT, U.MGRKI, DP, FITPT, INLCSS, SILO SS.SC, 

♦  M2. M3. ?9, 19  ,SFC,T54, MG, SERIAL,  MOD) 

DP 13*?P1 3/5. 1  9o56 

Dr  36*  DP3  6/5.  19696 
0 Pl4*D?2«/5. 19696 
0P43*D?45/5. 19696 
0BITE  SUSBAST  CF  BRANCH  LOSSES 
A  RITE  (4,601)  E?13,D?36,D?24,:?45 

CC  NT I HuE 

FCFMA I  (•  POKER  POINT  IS  MOT  OM  THE  PERFORM  A  MCE  HAP.’) 

FORMAT  /5X.' LOSS  BRASCH  1-3  :  1  ,F  12 . 3  ,  /5x  ,  •  LOSS  BRANCH  H2. 2, 

♦  /5X , ' LOSS  BRAMCH  2-4 : • . F 12 . 3 . /S X , • LO SS  BRANCH  4-?:*  J  Fllllf 
FETU5N 

EMC 


115 


nof/onnr.nnrj 


system  :wo  matching  subroutine 


THIS  SYSTEM  HIS  A  COMBINED  SHUT.  EHGIMZ  Ala  AN  C  COOLING  A  IS 
-■IT-S  "SBnr.a  -Hr  a:>»r  ?  -i  -  a.  "ii:  i -c  ;;:tci-rc  -«  -ur 


subroutine  sys2  <SEf.iAL.:i,wcRxi,3CRKS,a?,:;pT,FiTis:,  io.po.husid. 

♦  ALFAD  .  »0  «B  ,  ADWC  ,  AL'IH  , 

♦  RHOSTD.CFSO, C?MMAX,D?NAX,K) 


DATA  5/53.  3424/ 

THE  STAS TING  ANC  STOPPING  POINTS  FC3  36ANCH  COMPUTATION  LOOPS 

P?*FII1SI  (2)  -  1 

3C*FTT1ST  (3)  -1 

3R*FIT1SI  {4j -1 

SS=PIT1STlsj -1 

•A*  FIT  1ST  (21 

3=>FIT1ST (3) 

C=FIT1ST (4) 

o=f:tisi (5) 

INITIALIZE  INLET  AND  EXHAUST  LOSSES  (INCH  MG) 

IN1CSS*4.0 

EXL0SS-8.0 

INITIALIZE  COOLING  FLCW 

WC*23.0 

D?45«103.0 

GET  THE  ENGINE  PERFORMANCE  WITH  THE  ASSUMED  LOSSES 

CALL  ENG  I  NS  (IN  ICS  S  ,3XL0S5,ID,?0,aUMID,3?,NPT,W2,W3,P8,I8,SFC, 

♦  TS4,:iG,OFF) 

IF  (OFF, E 0.  0)  3C  TO  6 

WRITS (6 ,600) 

GO  TO  5  00 
CONTINUE 

INITIALIZE  THE  INLET  CONDITIONS  FOR  BRANCH  1-2 

DP  12*0.3 

?TIN*P0* 144. 3 

IIN*T0*459.7 

CC SPOTS  FITTING  LOSS 2 S 

DO  10  I«  1 .  PP 

TYPE*«ORXI  (1.21 
DA  IA 1  *  WORKS  (I,  1 
0ATA2*  WORKS  1,2 
:ata3*sorkh  i,3 
TATA4*WORKB jl,4 

CALL  FIIDP  (S2. HP,?  TIN.-TIN.  PICUT.  TOOT, PV,  DATA  1.DATA2,  DATA3, 

♦  DATA4^TYPE, DELP, 5.  ,0.,D.,J.,J.,0.,0.,D.,0.,0.,C.,D.,0.,J.,0. 

DP  (I)  *  D  s£P 
DP12-DP12*DEIP 
FITPV (I)*PV 
PTIS-PTOOT 
T* N*TOUT 
CO NTINOE 

COMPUTE  VELOCITIES  IN  THI  CIVEE3ZMG  WYE  SECTION 

PT2*EO*14470-D?12 

aHC2«  (PT2-PV1/  (  (10*459. 7)*R) 

7DWB*WC/  (  R  HO  2  •  ADWB) 

V0WC»  (WC ♦  W 2)  /  (RHC2*ADWC) 


nofinnnnnrift 


'77// 


VDNH- 82/ [ 3H02 • AEWM) 

INITIALIZE  ZSI.il  CONDITIONS  ?C8  3P.ANCH  2-3 

PTIK-PT2 

TIN-I 3*455.7 

«=  •2*8C 

OP  23*0.3 

CCSPOTS  LOSS SS  FOR  FITTINGS 
DO  20  I=A,00 


ZAIA2*SOESH  (1,2) 

DATA3-SOHKH  (1,3) 

DATA4-HCRKR (1,4) 

CALL  FIT3P ($*3?. ?TTS, IIS, PT3  3T, TO 0T.PV.DAT A  1, DAT A2.DATA3. 

*76ra*f«BBH6ac;o!:;TS)  '  J-''5"S31i5'4Dfca'*c,iC'&*'J-»5-* 


^  •L'80i  ilisni  iORVtUi<it/ 

DP  (I)  *D  EL? 

D?a3*DP  230EL? 

FITPV (11-PV 
PTia-PTCUT 
tin-toot 
ccntinoe 

in  in  azize  cos:  it  loss  Fca  sbanch  3-0 

?tin«?8*144. a 
TIN-T9 
DP  36-3.3 

CCSPCIS  FITTING  LOSSES 
DO  35  I-C.SS 

lYPS-NOHKI (1.2) 

DATA1-BOBKS  (t, 1) 

ZAIA2-SOBKS  1,2) 

DATA3-BOBXH (1,3) 


DATA3-BORKH (1.3) 

DATA4- BCEKR  jl,  •*) 

CALL  ?ITD?7i§.aP,? IIS, IIS, P703I, TOOT. ?V , D AT A 1 . DAT A2 . DATA3, 

!f  £;?&!»», 

FITPV  (lj>PV 

ptio»pt6ot 

tin-tout 

CC  NT  I SUE 

IF  THE  EXIT  PSESSOFE  IS  MOT  ASBIESI  RE?  EAT 
ISST-ABS (?T0UT-?0*144 .01 
Z?  (TEST. LT.1. 3)  00  TO  40 
?Tl:i«P0«l44.3*0P36 
30  ID  3  3 
CC  NTT  NOS 

TEST  THE  ASSOSED  LOSSES  AGAINST  THE  C3MF3TS0  LOSSES 
I NIOSS-INL OS 3*5.19696 
EXICSS-SXL0S5*!. 19696 


EXLCS3»j?36/5.19o9& 

SEPEAT  :;ERATICS  IF  A  SSOSED  LOSSES  DO  NOT  «!*TCK  THE  CON  PDTED  LOSS 

IF f  [TTST1. 3T. T.01.CB.  (TEST2. 3T.  I . 011  30  TD  3 

INITIALIZE  THE  INLET  CONDITIONS  FOR  3BANCH  2-4 

PTIN-FT2 

DP  *4-0.3,.  _  , 

.1 N*T0*459.7 

COMPOTE  FITTING  LOSSES 

DO  50  :>B.SB 

CTPE-HOBKI JI,2) 
zatai-hobkk  t, 11 
:ata2-borkr  1,2) 

L A  TA3  «  H ORES  1,3 
DA  TA4*W0fl  KB  (I  4) 

CALL  FITS?  (BcIhP,PTIN,:IN, PTOJT, T03T ,?V  ,  DATA  1 , DA TA2 , DATA  3, 


DATAU.TYPE.TELP, 3.,ALFAD,  3.  ,  3  -  ,  0  .  ,  A  333  #  ADS  3,  ADHC,  0  .  ,  0.  ,  0. 
7DSB,7EWM,7DaC,0.,T0) 

0?  (II  *D2L? 

DPi4*D?24»D£L? 

FITP7 (I)  *P7 
PTIN* PTOUT 
TIN«TOOT 

IF (TYPE. S3. 26)  TMOD*TOOT 
CONTINUE 

INITIALIZE  IHS  INLET  CONDITIONS  FOR  BRANCH  4-r 
T4=T0UT 

?T IN* ?0*  1 4 4.  3+  CPUS 

TIN*T4 

D?45*0. 0 

COMPUTE  LOSSES  FOB  FITTINGS 
DO  60  I*  D ,  N 

TYPS=SORKI  (1,2) 


EAIA1*WOEKR  1,1) 

DATA2*WOSK3  1,2) 

DATA3=SORKE  1 1,3) 

DATA4*W0R KH  1,4) 

CALL  FITDP  (ac.H?,PTIN#TIN,PTCUT,TOUT,?V, 0 ATA1 , DA TA2 , DATA 3, 
0ATA4,IYPS . DEL?, 5., O', 3., 0. , 3.  ,3.,3!,3l ,3.,o!  ,3. ,0l ,3. , 

0.,0.,f0) 

DP  (I)  =D  tLP 
DP45*DPU5*DEI? 

FITP7 (I) *P7 
PTTN*  PTCOT 
Tis*roaT 

If  (TTPE.EQ. 26)  THOD*TC3T 
CO  NT  I  NtJS 

IF  EXIT  PRESSURE  NOI  AMBIENT  BEPEAT 
TEST*ABS (PTOOT-?0*14U .0) 

If  (TEST,  LT. 1.0)  GO  TO  70 
GO  TO  SS 

COMPUTE  FAN  PRESSURE  AND  MATCH  FAN  PERFORMANCE  TO  SYSTEM 
FANC;=(DP2u*DP45*DP12)/5. 19696 

CALL  FANMAT(BC,I0,?0,FANDP,RHOSTD,CFM0,CFMMAX,DPMAX,K,ll CM) 

IF  COCLING  FLOS  MATCHES  TOO  ARE  PINISHE3 
TEST* ABS { WCN-WC) 

WC=WCN 

IF  (TEST.  GT.3  .  1 )  GO  TO  5 

SHITE  PERFORMANCE  INFORMATION  TO  THE  OUTPOT  FILE 

CALL  CUT?OT(T0,?0,HOSID,H?,3PT.N,HOHKI, DP, FITF7, INLCSS , EXLOSS , HC 
♦  S2  ,S8 , P8,T3  ,SFC,I5 4, NG, SERIAL, IMOD) 

OP12*fipl5/5! 195S6 

D?I3*D  P23/5.  19696 

D?36*D?36/5.  19696 

DP24*  CP2  4/5.  19636 

D?  u5*DP4  5/5.  19696 

WRITE  THE  EBANCB  LOSS  S3MHARX 

WRITE  (4,601)  DP12,DP23,DP36,DP24,DP45 

CONTINUE 

FORMAT (*  POWER  POINT  IS  NOT  ON  THE  PERFORMANCE  MAP. •  1 
?OFMAI(/5X,' LOSS  BRANCH  1-2 : * , ? 1 2 . 2, /5X , ' LO S3  BRASCH  2-3:',F12.2 


F12.2, /5X, 'LOSS  BRASCH  2-3:',F12.2 


/5X,*LOSS  BRANCH  3-6  : « ,  F 12 . 2, /5X , ' LO SS  BRANCH  2-4;',F12.2 
LOSS  BRANCH  4-S:*,F12.2) 


on  n  n  n  n  n  no  nnnonnnnnno 
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SYSTEM  IH8 EE  MATCHING  SUBROUTINE 

THIS  SYSTEM  UTILIZES  A  COMBINED  ISLET  AND  EXAUST  DUCT  FOR  BOTH 
ENGINE  AIB  AND  COOLING  AI8.  NODE  2  IS  A  DI7EF.  GING  WYE  .  NODE  5 
IS  THE  J3NCTID  N  OF  MODULE  AI3  AND  ENGINE  EXHAUST.  THE  SCHEME  IS 
TO  FIX  THE  PRESSURES  AT  NODES  2S5  AND  WORK  THE  PARALLEL  38ANCHES 
SO  THAT  THEY  HA7E  THE  SAME  INLET  AND  OUTLET  PRESSURE,  P2  AND  ?5. 
CHECK  ASSUMED  LOSSES  AGAINST  COMPUTED  LOSSES  REPEAT  IS  NECESSARY. 


SUBROUTINE  SYS  3  (SERI A  1. N , SOFXI , WOR XR , HP , NPT , FIT  1  ST, TO,  ?0, HUMID, 
♦  AIFAD. ADW3. ADWC,ACNM,ALFAC,  ACW3, ACWC,  ACPM, 


BEAL  NC3K8,HP,NP?,T0,  ru,nu.ixj,*-£  .ana  a  ,i.  r  au .  .rn&A,  r  ,  «  ^,xa,.jo,  ia  , 

♦  INLOSS,  EflCSS,FiNDf,DPl2,L?24.2P36,D?4  =  ,pv;plTN,?T6uT'DAi'A1  , 

♦  DAT A2.DATA3,TiST,DF,FIIP7, WC . RHCST 5. I EST 1 ,T EST2. WCN.TM OD, 

♦  T5A ,SFC,MG.ALFAD. ADS 3, ADWC, ADWM.DP23,  ?T2,oH0  2, 7&W3  ,7DWC,VDW ; 

♦  EAT A 4, R, ALFAC.ACWB, ACBC, ACWM , VCPB , 7CWC . 7C8M ,TM AIN , TMO D, HS EC, 

♦  HMAIN,HSTACK,T4, IS,  W, GAIN, LOSS, PS£c,?mAim.P 14. PT5, TEST 5, 

♦  PV8 ,?VC,P7M,?S3, ?SC,?SM,8H0C3T,BH0CCT,SHCCMT,IZST1 , TES 12 
INTEGER  WOBKI.FITISI,  CFF, N ,  ?P, 22,  F.R,  SS ,  TT,  A  , 3 , C,  D  ,£  ,SER  IAL,  TYPE , 

♦  IND 

DIMENSION  WORXI  (200,  2  )  ,  HCRKfi  (20  0,  4)  ,  FIT  1ST  (  6)  ,  DP  (200)  ,  FI  IP  V  (2  00) 
GAS  CONSTANT 
DATA  R/5  3.3424/ 

SET  UP  STARTING  AND  STOPPING  POINIS  FOR  BRANCHES 

PP*FIT1ST (2-1 

0D*FIT1ST (3-1 

RE=FIT1ST  <4  -1 

3S*FIT1ST  j  5  -1 

TT*FIT1SI I  6  -1 

A=  FIT  1ST  (2) 

B=FIT1ST (3) 

C*  FI T  1ST  (4) 

D=  FIT  1SX  (5) 

E=  FIT  1ST  1 6) 

INITIALIZE  LOSSES  (INCH  WG) 

IN LCSS*4 . 0 
EXICSS=3 . 0 


,  *  a  ,  AJHI.  ,  A  LA.l  ,A,rAW, 

D.CFMO.CFMMAX.DPMAX.Kf 
?fl, HUMID, CFMmIx.CFMO,  D 


PMAX, K.S2,W8.?8, 13. 


LOSSES  (INCH  WG) 


INITIALIZE  GAIN  IN  THE  MODOLE  EXHAUST  EDUCTOR  (PSF) 

G AIN*-30 . 0 

INITIALIZE  DUCT  LOSS  IN  THE  COOLING  FLOW  PASSAGE  (PSF) 

L0SS*30.  0 

INITIALIZE  THE  COOLING  FLOW 
WC=C  7  MMAX*  RH OS  ID/60.  3 

INITIALIZE  THE  BRANCH  LOSSES  REJUIHS  TO  START  THE  PROGRAM 

D?45=  100, 0 

DP5o  *  100 . 0 

TMOD=*710. 0 

ET5=P0*144.0*DF56 

CHECK  TD  SEE  IF  THERE  IS  A  WASTE  HEAT  3CILEP.  INSTALLED 
IN  BRANCH  3-5.  II  DOES  NOT  MAKE  SENSE  TO  PUT  IT  ANYWHERE  ELSE. 
I N  £  =  0 

do  4  i*c.ss 


TY?E=4oRKI (1.2) 

17  (TYPE.EQ.  27)  IN; 
SIINUE 


GET  ENGINE  PERFORMANCE  BASED  ON  ASSUMED  CONDITIONS 
CALL  ENGINE ( ISLCSS, EXLCSS, I0,?O,HUMI0,d?,NPT,W2,W6,r8,T8,3FC, 
♦  T5  4, NG,OF  F) 

IF  (OFE.EQ.  0)  GO  TO  8 

CC  NT  I  NOE 

INITIALIZE  THE  INLET  CONDITIONS  FOR  BRANCH  1-2 
DP12*0.5, 

PM  AIN  =PT5  +  LOSS 
PSEC=>PI5*GAIN 


11? 


nnr-nononnon 


i  :AT=wosxa  (i,  i) 

kTA3  =  WCR  XR  (1,3) 

l  TA4  =  WCR  X  R  1,4 

kLL  FITDP  (W«.i?,?TIN,TIN,?T 

kTAU,TYPE,D£L2, 3.  ,  0.  ,  0  .  ,  3  . 


OUT,TOUT,?V,DATA1,DAIA2, JATA3  , 
,3.  ,3. ,0. ,3.  ,0. , 0. ,3. ,3., 


?TIN=PO« 144. 3 
IIN=T J+43 3.7 

COMBINED  .IASS  FLOW  «C*S2 
»=  »c  ♦  «2 

FIND  FITTI NG  LOSSES 
DC  3  1=1,?? 

TYFE=WC?.KI  (1.2) 

:atai  =  hohkf.  <i,  i) 

C  A  TA2  =  WOR  X3  (I,  2 
DATA3=WGRXR  (1,3) 

DA  TA4  =  WCR  X  R  (1,4 

CALL  FI  TOP  (W.S?,?TIN,TIN,?TOUT,TOUC,?V,DATA1,DAIA2,  JATA3, 

♦  DATAU,TYPE,DcL?,3.  ,0. , 0 . ' 3 . ,3. ,3. ,3. ,3.  ,0. ,0. ,3. ,3' , 

4  0  .  ,  3  .  ,  0.  ,  T J) 

DP  (I)  =  D  aL? 

D?12=DP12*DEI? 

FITPV (I)=PV 
PI IN= PTOUT 
TIN=TOUT 
CONTINUE 

THE  JUNCTION  PARAMETERS  AT  NODE  2  AND  5  ARE  COMPUTED  HERE 

BASED  CN  THE  CURRENT  ASSUMPTIONS.  THE  PARALLEL  2RANCHSS  MUST 

MEET  THE  VALUES  AT  THE  NODES  2  AND  5.  THE  PARAMETERS  ARE  AS 

NOTED  IN  THE  COMMENTS 

TOTAL  PRESSURE  AT  NODE  2 

PT2=P0*l44.3-3P12 

DENSITY  AT  NODE  2 

RHC2=  (PT2-PV)/  (  (TO *45  9.7)  »R) 

VELOCITY  IN  THE  COOLING  BRANCH 
VDWE=SC/  (RH02*A£WB) 

VELOCITY  IN  THE  COMBINED  INLET  SECTION  ABOVE  NODE  2 
VDNC=  (WC*M2)  /  (RH02«AD»C) 

VELOCITY  OF  THE  AIR  PLOWING  10  THE  ENGINE  FROM  NODE  2 
VDWM=W2/(RH02*ADWM) 

TEMPERATURE  OF  THE  AIR  IN  THE  PRIMARY  FLOW  OF  THE  JUNCTION  AT 

NODE  5,  ENGINE  EXHAUST  TEMPERATURE 

TMAIN=T3 

IF  A  BOILER  IS  IN  BRANCH  3-5  THE  TEMP  IS  THE  TEMP  OUT  OF  THE 
BOILER 

IF  (IND.SQ. 1)  TM AIM =7 70.043. 73E-3*HP 

COMPUTATION  TO  FIND  THE  TEMFESATU RE  OF  THE  COMBINED  FLOW 
BASED  OF  THE  ENTHALOPY  OF  THE  TWO  MIXING  FLOWS 
HSEC=  (1.  4  2 13 8 5E-5*TMO  D+.  221091)  *TM0D45.  6373 
HM AIN= (1 . 560  51E-5*T3AIN4.32  383)  *TMAI 3* 4. 7539 6 


AND  5  ARE  COMPUTED  HERE 
THE  PARALLEL  RRANCHSS  MUST 
5.  THE  PARAMETERS  ARE  AS 


HSIACX=(W6/(W8  4WC)  i *HMAIN* (KC/(W8  4  WC) ) *  MSEC 
T5= (- C.  J 00  84  17  *HSTACK  4  4.  33 5 771* H3T ACK- 9 . 577 8 
ASSUME  THE  DENSITIES  AT  NODE  5  .COMBINED,  MAIN, 


AND  BRANCH 


:W3=WC/  (RHOCB*ACWB) 


AT  NODE 


3F.ANCH,  COMBINED,  AND  MAIN 


VC  WC=  (WC  4  W  8)  /  (  EHOCC*  A  CWC) 
VC  SM  =  *8/ ( R  HOCM  *AC WM) 
COMPUTE  i  HE  VELOCITY  PRES: 


COMPUTE  THE  VELOCITY  PRESSURES  AROUND  NODE 
?V 3=R HOC 3* VCWB  **2/(2.  0*32.  174) 
?VC=RHOCC*VCSC*»2/(2.  0»32.  174) 

E V M=  F HCCM* VCW M**2/(2.  0*32.  174 
COMPUTE  STATIC  PRESSURES  AROUND  NODE  5 
ESE=  PSZC  — ? VB 
PSC=PT5-P VC 
PS  M*  C  MAI  N  —  ?V  M 

COMPUTE  DENSITIES  AROUND  NODE  5 


ND  COMPUTED  DENSITIES 


TEST  1=ABS  ( RHOC  ET-PHCC  S) 
I£3T2=A3S ?  RHOC CT- RHOC Ci 


( 


I 


< 


TSS73=A3S (  8H0 CMT-R HOC  M) 

KHCC  H  =  EHOC  FT 
RHCCC=RHOCCT 
H  H  CC  M  =  EHOC  MT 

__  ....  ic  10 

TC  10 

_  _  _  CONDITIONS  ?OB  35ANCH  5-6 

11  TIN=T5 
W=iiC*  »8 

PTIN  =PQ* 1 4  4. 0+DPS6 
DP5o=0.3 

C  COMPUTE  FITTING  LOSSES 

DO  12  I=E,N 

Tt?E=WOHKI  (1.2) 

D ATA1  = WORKS  (I,  1) 

DATA2=WORKS  1,2) 

C  ATA3  =  iiORKR  (1,3) 

9ATA4=W0EKR  (1,4) 

CALL  FITDP (W, HP, ?T IN, TIN, PIC JT, TOUT,? V,  D ATA1.DAT A2,DATA3, 

♦  DATA4 .TYPE, DEL?. 3. ,0. ,3. ,3. ,3. ,0. ,0. ,3.  ,0. ,0. ,0. ,0. , 

♦  w  .  ,0  •  ,  0,  ,  *  J) 

DP  (I)  =D  EL? 

0P56»DP56*-D£IP 
FITPV (I) =PV 
PTIN=  PTOUT 
IIN=TOUT 

12  CC  NT  I  NOE 

C  EXIT  PRESS  OK  E  RUST  3S  ATMOSPHERIC 

TEST® ABS  (PTO[JT-PO*144.3) 

IF  ITEST.  LT  .  1 . 0)  GO  TO  14 
GC  TO  1 1 
14  CO  NT  I  NOE 

C  NOW  THE  TOTAL  PcESSORE  AT  NODE  5  IS  KNOWN  FOR  THE  ASSURED  FLOW 

PTS=P0*l44.0+DPS6 

C  INITIALIZE  INLET  CONDITIONS  FOE  BRANCH  2-3 

PTIN=?T2 
TIN*TC+4  5  9.7 
DP25®0.3 

C  COMPUTE  FITTING  LOSSES 

DO  20  I=A.3Q 

TYEE=w6BKI  (1,2) 

D ATA1  =  WCRKH  (I, 1) 

DATA2=WORKR  (1,2) 

D ATA3 =  W  OR X?.  (1,3) 

OATA4  =  WOR KR  (1,4$ 

CALL  FITDP (K2. HP,? TIN .TIN, PTOUT, TOUT ,?V  ,  DATA  1 , DA IA2 , DATA 3, 

♦  DATA 4, TYPE  .DELP.O., AlFAD, 0. , 0 . ,0 . , A S»3 , ADWB, ADKC, 0 . , 3. , 0. , 

♦  /6wB.?is(i,v5ac,o.,TO) 

DP  (I)  =0ELP 
D  ?  23=  DP  23  ♦  D  ELP 
FITPV (I)»PV 
PTIN= PTOUT 
TIN=T0  0  T 
23  CONTINUE 

C  INITIALIZE  INLET  CONDITIONS  FOR  BRANCH.  3-5 

?t:n=fb«144.  o 
30  :in=t= 

DP  35*3. 0 

C  COMPUTE  FITTING  LOSSES 

DO  35  I=C,SS 

TY?E»WOFKI (1,2) 

DATA1*WORKb  (a,  1) 

DATA2=W0BKR  1,2) 

DA7A3  =  W0RKR  1,3) 

OATA4®WORKR  (I  4) 

CALL  FI  ID  Pjiis!  HP,?  TIN  .TIN,  PTOUT,  TOUT.PV  .  D  AT  A  1 ,  DA  TA2  .  D  ATA3, 

♦  DATA  4, TIPS, DEL?, A  LFAC, 0. , AC W3, ACSM, ACWC.O. , 3 . ,0 . , VCBB, /COM , 

♦  vcsc,5.,o. ,o.,2hocc,tO) 


4 


4 


i  -ii 


35 


40 


45 


DP  Cl)  =  DEL? 
DP35=  DP35+DEIP 


NODE  5.  THE 
A  PRESSURE 


RGY  13 
G  Ax  N  ■ 


50 


. 2TPV  (I) =  P  V 
PTIN=  PTCOT 
TIN=TO  U I 

LOSS  IN  THE  3 AIN  ENGINE  EXHAUST  FLOW  FOP 
TR ANSFERED  TC  THE  HOD  OLE  COOLING  FLOW  AS 
IF  (TYPE. 2Q.  16)  LCSS  =  DEL? 

CONTINUE 

COMPARE  EXIT  PRESSURE  TO  PT5,  REVISE  INLET  CONDITION  TO  3RANCH 
3-5  AND  REPEAT  IF  NECESSARY 
T 2 ST = ASS (PTOUT-PT5) 

IF  (TEST. LT. 1 . 0 )  GO  TO  40 
?TIN=P0*144.04DP35+DP56 
GO  TO  3  0 
CONTINUE 

COMPARE  ASSUMED  LOSSES  TO  COMPUTED  LOSSES  REPEAT  ITERATION 

IF  REQUIRED 

INIOSS=INLOSS*5. 19636 

EX1CSS=EXL0S3*5.19696 

TEST  1  =AB  S (DP  1 2+DP23-I NLOSS) 

TEST2=ABS (DP35+:P5d-SXLOS3) 

INICSS=(DP12*DE23)/5.  19696 
EXLOSS=!dP35  +  DP56)  /5.  19696 

IF  ((TEST1 .  GT.  1 .0)  .OR.  (TEST2.GT.  1. 0)  )  GO  TO  5 
IN I-I ALICE  LOSSES  FOR  BRANCH  2-4 
?TIN=?T2 
DP  24  =  0.0 
'■TI N=T0+459 . 7 
COMPUTE  FITTING  LOSSES 
DO  50  1=3.  RH 

TYPE=HORKI  (1,2) 

CATA1  =  ii  ORKR  (I,  1) 

DATA2=HORKR  1,2] 

DATA3  =  «CRKR  1,3) 

DATA4  =  S0RKR  (I, 4? 

CALL  FITDP(«C.3?,PTIN. TIN, PTOUT, TOOT, PV,; 

♦  DATA4,TYP$,DEL?,0.,ALFAD,3.  , 0 . ,0 . , »5sa , , 

♦  7D»B,VC«M,VDilC,0.,I0) 

DP  (I)  =D  ELP 
DP24=DP24  +  D  ELP 
r  ITPV (I )=P  7 
PTIN« ptout 
tin=iout 

IF  (TYPE. EQ.  26}  TMOD=TOUT 
CONTINUE 

INITIALIZE  INLEI  CONDITIONS  FOE  3EANCH  4-5 
T4=TOUT 


.  D ATA 1 , DATA2 , 
.  AOKM, ADSC.O. 


DATA  3, 

,  0. , 0. , 


?TIN=?TDUT+(K*  (  (WC/RHCSID*60. 0) -CFMMAX)  *»2  +  DPMAX) *5.19o96 
TI N=T  4 


D?45=0.0 

COMPUTE  FITTING  LOSSES 
DO  60  I=D , TT 


DATA3=WORKS  1,3 
DATA4  =  H0RKR  (I,4L 
CALL  FITDPJBC.Hk,  PTIN 


n  a  a  c  lawidff  r  x  a.  ai 

DATA  4,TYPS,DELP.ALFA 
VCHC.O..O. ,0. , RHOCC, 


PP?iJI)^PElp 


IN,  PTOUT, TOUT ,?7 , 
0. , AC  N3, AC  KM, ACUC 
TO) 


DAT A  1 , DA  TA2 , 


DATA3, 


V  9  ,  V  CW  M , 


DP45*DP45*DELP 
FIIPV (I)=P7 
PTIN= PTOUT 
T I N  =T  0  U  T 

THE  MODULE  FLOW  GET  A  300ST 
OF  MOMENTUM  FROM  THE  HIGHER 
IF  (TYPE.  £J.  15)  GAI  N=DcL? 


IN  PRESSURE 
VELOCITY  MAj 


3Y  A  TRANSFS 
S  EXHAUST  FL 


R 

Cfi 


70 


IF  (TYPE. 2  J.  26)  ra0D=T03T 
60  CCSTINOE 

C  TEST  THAT  EXIT  PRESSURE  IS  PIS,  IF  SOT  REPEAT 

IEST=A3S (PT0UT-FT5) 

I?  (TE5T.IT. 1.0)  GO  TO  70 

C  COOLING  FLOW  IN  INCREASED  31  SHALL  STEPS  UNTIL  SYSTSH  IS 

C  HATCHED 

WC=WC*0.1 
GO  TO  5 

SYSTEH  IS  HATCEED  PRINT  RESULTS 

CALL  OUTPOT(TO/PO/HUHID,HE.;JPT.  N.WORKI,  DP,  F I  TP  V,  I NLOSS  ,  EXLOSS, PC 

♦  W2.W8 ,P8, 18, SFC, 154, NG. SERIAL, THOD) 

DP  12  =  5?lS/5l 1 9  6  S  6 

D?I3  =  DP23/5.  196S6 
OP  35  =  DP3  5/5.  19696 
DP5o  =  DPS  6/5.  19696 
D?I4=D?2«/5. 196S6 
DP45  =  DP45/5.  19696 
:  PRINT  BRANCH  LCSS  SUHHARY 

WRITE  (4,601)  CP 12, DP23, DP 35, DP  56, DP  24, DP 45 
500  CONTINUE 

oOO  FOrHAT  ('  POWER  POINT  IS  NOT  ON  THE  PERFORMANCE  MAP.') 

601  FORMAT(/5X,'LOSS  BRANCH  1-2 : • ,F 1 2 . 2,/5 X , • LOSS  ER ANCH  2-3  : ' , FI  2. 

♦  /5X , ' LOSS  BRANCH  3-5 ; • , F 12 . 2 ,/S X , ' LOSS  BRANCH  5-6:', F12. 

♦  /5X LOSS  BRANCH  2-4: • , F 12. 2,/iX , • LO SS  BRANCH  4-5:', F12. 

RETURN 

END 
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SYSTEM  FOUR  M A  TCHING  SUBROUTINE 

THIS  SYSTEM  HAS  SEPARATE  INLETS  FOE  THE  ENGINE  AIS  FLOR  AND 
MODULE  TOOLING.  NODE  5  IS  THE  JUNCTION  OF  MODULE  A  IF.  AND 
ENGINE  EXHAUST.  FOR  THE  ASSUMED  FLOW  THE  PRESSURE  AT  MODS 
5  IS  COMPUTED  DON N  THE  COMBINED  EXHAUST.  THEN  THE  EXIT 
PRESSURE  FROM  BRANCHES  3-5  AND  4-5  SHOULD  MATCH  FT5 .  IF  NOT 
THE  ITERATION  PROCESS  CONTINUES. 


C 

c 


SYS4  (SSRIAL.N.ifORKI,  NORKR  ,HP  ,  N?  T,  Fill  SI,  10,  P  0,  HU  HID , 
ALFAC.ACSB. ACSC.ACSM^ 


AX,  X) 

rx6.bc 


SUBROUTINE 

,  At-  "B  ,  Ak.  ,  A  V.  Hfl  , 

RHOST  E,CFM0,CFMUAX,0PMAX,K) 

REAL  NCR  SR ,  -  “*  “  .  .  . 

♦  INLOS! 

♦  DAT  A  2  tu  a  i  a  j  ,  j 

♦  T54 /S;C,NG,DP56, 

♦  DArA4,R,i 

♦  HMAIN,H5] 

INI 

♦  IND 

DIMENSION  KORKI  (200,2)  ,<JOHKa  (200,  4)  ,  FIT  1ST  (6)  ,DP  (20  0)  ,FIIPV  (200) 
GAS  B.CNSTA  NT 
DATA  F./53.  3424/ 

THE  STARTING  AND  STOPPING  INDEX  POR  A  BRANCH  IS  COMPUTED 

?P  =  PIT1ST  2)  -1 

OC=FIT1ST  3)  -1 

aa=FiTisi  4)-i 

5S  =  FIT1ST  i  5)  -1 

A=  FIT  1ST (2) 


HMAIN.HS 
PV3.PVC, 
NTS  GEE  NO RKl 


B= FIT  1ST 
C=  FIT  1ST 
0  =  FIT  1ST 


INL0SS=4.  J 
EXLOSS-3.0 

INITIALIZE  THE  GAIN  AND  LOSS  AT  NODE  5 
3AIN=-33 . 0 
LOSS*  30.  J 

INITI ALI Z ETHE  CCOLING  FLOW 
WC=CFMAMX*RHO SID/60.0 
INTIALIZE  THE  BRANCH  LOSSES 
D?  45  =  100. 0 
DP56  *  100 . 0 

INITIALIZE  THE  MODULE  TEMPERATURE 
TMCD=710. 0 

INITIALIZE  THE  PRESSURES  AT  NODE  5 

PI5=P0*144.0*DE56 

PMAIN=PT5*LOS3 

?SEC  =  FT5*G  AIN 

SEARCH  FOR  A  HASTE  HEAT  BOILER  IN  BRANCH  3-5 
INC=0 

DO  4  I=C,SS 

T  Y PE*  So  6KI  (1.2) 

IF  (TYPE. EQ.  27)  IND*1 
CONTINUE 

GET  INITIAL  PERFORMANCE  OF  ENGINE  PITH  ASSUMED  CONDITIONS 
CALL  ENG  INE  ( I NICSS  , EXLOSS, TD,  PO, HU  MID, HP,  NPT,'«' 2, N8,P3,  18,  Sr  C, 

a  il  U/*  ,1  P  Pi 


♦  T5  4  ,NG  ,OF  F) 

IF  (OFF.  SO.  0)  GC  TO  6 
HRITE (6.600) 

r" r  C  An 


GC  TO 
CONTINUE 
INITI ALI 
DP  13*0.3 
PTIN-PO*  144.  0 
TIN*T  3*4  5  9 . 7 


sdo 

E  INLET  CONDITIONS 


FCR  3RANCH  1-3 


onnnnonnnno 


c 


COMPUTE  FITTING  LOSSES 
DO  8  I*1,?P 

T  Y PE*  io  RKI  (1.2) 

DATA1*30RKR  (I.  1 
CATA2=«OHKR  1,2' 

DATA3=HORKR  (I, 3 
CATA4*«ORXR jl,4 

CALL  FITDP (S2, HP, PTIN, TIN. PTDUT, TOUT, ?V, DATA  1, DATA2, DATA3, 

♦  DAIA4.X YP3. DEL?, 3.  , 0. , 3. , 3. , J.  , 5.  , 0 . ,0.  ,  3. , 0. , 0. , J. , 0.  ,0 . , 

♦  3.  ,T0) 

DP  (I)  *D  EL? 

DP  13*  DP  1 3 ♦  D £ LP 
FITPV (I )  *PV 
PTIN*  PTOOT 
TIN=rOUT 
CONTINUE 

COMPOTE  NODE  5  EARAMET2BS 

TEMPERATURE  OF  SAIN  JET,  ENGINE  EXHAUST 

TMAIN*T8 

IF  A  50ILE8  IS  INSTALLED  THE  TEMPERATURE  IS  THE  2CIL3E  EXIT  TEMP 
IF  (IND.EQ.  1)  TMAIN*770.0+3. 73  E- 3*  HP 

COMPUTE  THE  COMBINED  FLOW  TEMPERATURE  BY  MIXING  ENTHALOPIES 
HSEC=  (1.  421385 E-5*TMOD+.  221031)  *  TMOD  *5  .  o37  3 
HMAIN=(1.  56051E-5«TMAIN+.22388)  »rSAI N+4. 75396 
KSIACK=(W8/(W8*iiC)  1  »H!1»IN4  (HC/(Sa*MC)  )  *KSEC 
I5=(-C.JQ094  17  •RSI  ACX  +  4.  33577\»H3TAcfc-9. 57  7  8 
ASSUME  DENSITIES  AT  NODE  5,  COMBINED,  BRANCH,  MAIN 


COMPUTE  VELOCITIES  AT  NODE  5,  38 ANCH ,  COMBINED,  SAIN 
VCSB*WC/  (8  HQCB  *AC 4B) 

VC  NC*  (WC  +  K  81/ (  RHCCC* ACWC) 


NODE  5 


VC  NC*  («C  ♦  S  8)  /  {  RHCCC* A  CWC) 

VCPM  =  W8/(8h6cH*ACHM) 

COMPUTE  THE  7  ELCCITi  P8ESSUB2S  ABOUND  NODE  5 
?V3=RhOCB*VCBB**2/(2.0*32.  17+) 

P VC*R  HOC  C  *  VC SC • *2/ (2.  0*32.  17+ 

E V M* 8 HOC M*  YCN  M**2/  (2.  0*32.  17  + 

COMPOTE  STATIC  PRESSURES  AROUND  NODE  5 
ESE*  E3EC-P VB 
rSC*?T5-?VC 
ESM*  EMAIN-FVB 

COMPUTE  DENSITIES  AR03ND  NODS  5 
EHCC  2T=P S  3/  ( 8 * TMOD) 

RHCCCT=P 3C/(8*T5) 

RHCC  MT*PSM/ (8*TM»IN) 

TEST  ASSUMED  DENSITIES  AND  COMPUTED  DENSITIES 


SHCCC=RHOCCT 
8HCCM*RHOCMT 
IF  (TEST1.GT. 0. C01)  30  TO  10 
IF  TSST2. 5T.0. 001)  30  TO  10 
IF JTEST3.GT.0. 001)  30  TO  10 
INITIALISE  INLET  CONDITIONS  FOR  S8ANCH  5-6 
TIN*T5 

PTIN* PO*  1  44.  0 ♦  CP56 

N*4C+H8 

D?56*0.0 

COMPOTE  FITTING  LOSSES 
DO  12  1=  D  ,  N 

TYPE* NO P.KI  (1,2) 

DA1A1*H0RKB  (I,  1) 

DATA2*HORKR  (I, 2 
DATA3-H0RKB  1,3) 


CATA4*flCfiKH  (X  4) 

CALL  FITD?  (K, S?, PTIN, TIN, PTOUT, TOUT,? V, DATA  1, DAT A2,DAIA3 , 


i 


f  DATA4.TYP£,2£LP/0.  , 0. ,3. , 3. , 3. , 3. ,0.  ,0.  ,  0. ,0- , 0.  ,3-  , 0.  , 0 . , 

♦  D.  ,:of 

DP  (I)  =  D*L? 

DP 56*  DP  56  *D  EIP 
fi:pv (i) *?7 
ptin*  picut 

TIN*IOUT 
CC  NT I  NOE 

EXIT  PRESSURE  MUST  BE  ATMOSPHERIC 
TEST*  A3S ( PTOUT- PO* 14 4 . 0) 

IF  (TEST.  LT.  1. 0)  GO  T3  14 
jC  TO  11 
CONTINOE 

TOTAL  PS SS SDRS  AT  SODS  FI7E  3 AS  ED  ON  FLOS  IS  SEARCH  5-6 
£T5=P0*144.0*DP56 

INITIALISE  ISLET  CONCITIOSS  FOR  BRANCH  3-5 
PT IS*  P8*  1 4  4.  0 
TIS=T8 
DP35*0.  0 

COMPOTE  FITTING  LOSSES 
DO  35  I=C.SS 

TYPE=WOHKI (1.2) 

D ATA1  =  WORKS  (1,3) 

CATA2*HORKR  1,2) 

DATA3*UORKR  1,3) 

DATA4*U0RKR  (1,4) 

CALL  FITDP(W8,H?,PTIN,TIN, PTOUT .TOUT.PV , DATA  1 .DAIA2 , DATA  3. 

♦  DATA4. TYPE,  DEL?, A  LFAC.  0 .  ,  AC  W3 ,  ACWH,  ACWC  ,  0. ,0 . ,3 . > 7CS B, 7C$M, 

♦  vchc,5..o. ,o.,rhocc,:3)  '  ' 

DP  (I)  *D  it? 

DPj5=DP35*D£IP 
FITP7 (I) =P7 
PTIN*  PTOUT 
TIN=TOUT 

LOSS  OF  PRESSURE  DUS  TO  MOMENTUM  EXCHANGE  WITH  SLOWER  JET, 
THE  MOO  OLE  COOLING  FLOW 
IF  (TYPE. SQ. 16)  LOS  S  =  DEL? 

CONTINUE 

ESANCH  EXIT  PRESSURE  MUST  BE  PT5  OR  REPEAT 
TEST=ASS (PTOUT -PT5) 

IF  (TEST.  IT. 1.3)  GO  10  40 
?TIN=P  0*1 44 . 3*D?3  5*DP56 
GO  TO  30 
CONTINUE 

COMPARE  ASSUMED  LOSSES  TO  COMPUTED  LOSSES,  REPEAT  ITERATION  IF 
REQUIRED 

INIOS3=INLOSS*5. 19696 
EX I0SS*E  XL OS S*5. 19696 


EXLCS3=(DP35*DP56)/5.  19696 

IF  ((TESi 1 . GT.  1  .0)  .OR.  (TEST2.GT. 1.3) )  GO  TO  5 
INITIALISE  INLET  CONDITIONS  FOR  BRANCH  2-4 
?TIS=P0* 144. 0 
TIN=T0*45  9 .7 
DP  24=0.0 

CCMPUIE  FITTING  LOSSES 
DC  20  1=3,00 

TY?E*W&RKI  II  2) 

DATA1*SORKH  (I,  1) 

DATA2* WORKS  1,2) 

OATA3*WORKR  (I, 3) 

EA1A4*W0RKR jl,4) 

CALL  FITDP  (BC, HP, PTIN .TIN, PTOUT, TOUT ,?7,  DAT A1 . DATA2,  DAI A3, 

♦  DATA4,TYPS,SlLP,J . ,ALFAD, 0.,0.,J.,ADW6,ADWM,ADwC,0.  ,0.  , 

♦  y6wB,y£rH,7DWC,0.,0.,I0) 

D?jI)=DEL? 

D?i4*3?24*DEIP 
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FITPV (I)*PV 

PIIN=?TOUT 

TIN=rOOT 

IF  (TYPE. 2Q.  26)  TMOD=TOUT 
CONTINUE 
f I4=?T00T 
T4  -TOUT 

INITIALIZE  INLET  CONDITIONS  FOR  BRANCH  4-5 

PI  IN=  PT4 ♦  (K*  (  (HC/RHOS  TD*6C.  0)  -CFSSAX)  **  2*0 P  HAX)  *  5 . 1  56  96 

TIN=T4 

DP45=C.3 

C0HPUT2  FITTING  LOSSES 
DC  60  1=3, SH 

TY?E=HORKI JI.2) 

0ATA1  =NORKH  (1,1) 

DATA2*HORKR  I,  2) 

DAIA3=HOHKR  1,3) 

DATA4*S0RKR  I,4[ 

CALL  FITDP (HC, HP,? TIN. TIN, PTOUT. TOUT , ? V , DAT A 1 , DA TA2 .DATA 3. 

♦  DATA4,TYP5,DEL?,ALFAC.O. ,ACN3, ACXM, ACNC ,0. , 0. ,0 . , VCF9, /CSS, 

♦  VCRC,O.,0.  ,0.,HHOCC,I3) 

DP  (I)  =  D£LP 
DP45=DP454D£IP 

FIIPV (I) *P  7 
PTIN=  PTOUT 
TIN=TOUT 

GAIN  IS  RESULT  OF  flOHENT'Jd  TRANSFER  FPDH  EXHAUST  FLOW 


IF  (TYPE.EQ.  IS)  GAI N=DEL? 
IF  TYPE.EQ.  26)  THOD=TOUT 
!  NTINUE 


EXIT  PRESSURE  SHOULD  3E  PTS  OR  REPEAT  ITERATION 
TEST  =  ABS ( ?TO  UT-PT5) 

IF  (TEST.  LT. 1.0)  GO  TO  70 

ADD  A  SHALL  INCREMENT  TO  THE  COOLING  FLOK  AND  REPEAT  ITERATION 

XC=WC*0.1 

GO  ID  5 

SYSTEM  IS  HATCHED,  OUTPUT  RESULTS 

CALL  0 UT PUT(T0,  PO , H OHIO, HE, NPT, N, BOR KI, DP, FITPV, INLOSS, EXLO  SS  ,  RC, 

♦  *2.M8  ,P8,T8  ,SFC, 154, NG, SERIAL,  IMOD) 

DP  13  =  5?l5/5l  19fiS6 

D?24  =  DP24/5.  19656 

DP  35=  DP35/5.  196S6 

DP45  =  DP4  5/5.  19696 

DP  56  =  0P5 6/5.  196S6 

OUTPUT  3EANCH  ICSS  3UHHARY 

WRITE  (4,601)  DP13,DP24,DP35,DP45,DP56 

CONTINUE 

FORMAT  (’  PDHER  POINT  IS  NOT  ON  THE  PEEFOPHANCE  NAP.') 
FCEilAT(/5X,'LOSS  3RANCH  1-3  :  '  ,  F  1 2.  2 , /5X  ,  '  LO  SS  BRANCH  2-4:’,F12.2, 

♦  /5  X , ' LOSS  BRANCH  3- 5 : ' , F 1 2 . 2, /5X , ' LD SS  ESANCH  4-5:',F12.2, 

♦  /5X , ' LOSS  BRANCH  5-6:', FI 2.2) 


RETURN 


SYSTEM  FIVE  MATCHING  SU3800TINE 

THIS  SYSTEM  HAS  COMBINED  INLETS 
AND  THE  MODULE  COOLING.  THESE  j 
OF  CC CLING  AI3  IS  ACCOMPLISHED  : 
ENGINE  EXHAUST  PLANE.  THESE  IS 
HIGH  SPEED  JET  (ENGINE  EXHAUST  : 
JET  (NODULE  COCLING  F LOW l.  THE 
COCLING  FLOP  AND  SEE  IF  THESE  IS 
EOJCTCS  ARRANGEMENT  TO  NOYE  THE 
HILL  HAVE  EXCESS  GAIN  AI  THIS  LC 


CAN  CONTINUE,  IHCEEAS 
NATCH  ED. 


31  NED  INLETS  AND  EXHAUST  FLC3S  FC8  THE  ENGINE 
ING.  THESE  IS  '10  COOLING  FAN.  THE  MOVEMENT 
OC  CMP  LI  SHED  BY  AH  EDUCTOR  ARR ANG  ENENT  AT  THE 
E.  THESE  IS  A  T.-.ANSFSFOF  MOMENTUM  F80N  A 
INE  EXHAUST  THROUGH  A  NOZZLE)  TO  A  LCB  SI  . 

FLOH).  THE  SCHENE  IS  TO  StiST  WITH  A  SMALL 
S  IF  THESE  IS  ENOUGH  GAIN  AVAILABLE  F80M  THE 

TO  MOVE  THE  AI3.  A  PP.OPSELX  DESIGNED  SYSTEM 
IN  AI  THIS  LOH  FLOH  AND  THE  ITEEATION  PROCESS 
AS ING  THE  COOLING  FLOH  UNTIL  THE  SYSTEM  IS 


SUEPOUTINE  SYSS  (SERIA  L,  N  ,  WOSKI ,  H08KE  ,  HP  ,  NPT  .  FIT  1  SI.  TO,  ?0.  HUMID, 

srrt'A  Anan  or  a  dcm  »  r  *r » /*•  k  ^  r  e  « r~  «  /-  n  u  > 


♦  T54,SFC,NG.0?5b, 

♦  DATAH.a. Air AC. AC HB, ACHC. ACVM.VCHB, VCHC . VCHM, IMAIN, IMOD .HSEC , 

♦  HNAIN,H5TACK,T4, TS.H, GAIN, LOSS, PS tC, PMAIN  ,  PTU, ET5 , TESTS, 

♦  cVB , PVC, 2VM.PSB, PSC , PSM.RHOC  3T, 3H0CCT , 8  HOCMT. TEST  1 ,  IESI2 
INTEGER  HO HKI, Fill  ST, OFF, N, P?,aQ,RR,SS, A, B,C#D, SERIAL, TYPE, 

♦  I N  D 

DIMENSION  HO SKI  (200,  2 ) ,808X8 <20  0,  4)  ,  FIT  1ST  (  6)  , DP  (20  0) ,FITPV (200) 
GAS  CONSTANT 
DATA  8/53.  3424/ 

CCMPUTi  THE  STARTING  AND  STOPPING  POINTS  FOR  THE  BRANCH  FITTINGS. 

PP=FIT1ST  (2)  -1 

CQ-FIT1ST (3)  -1 

RF.-FIT1ST  (4)  -1 

SS-FIT1ST  1 5)  -1 

A=  FIT  1ST (2) 

B=FIT1SI  3) 

C=FIT  1ST  4) 

D=FIT1sr  5) 

INITIALIZE  THE  INLET  AND  EXHAUST  LOSSES  (INCH  HG) 

INLOSS-4.0 

EXLOSS-8.0 

INITIALIZE  THE  GAIN  OR  PRESSURE  SISE  TO  MODULE  AIR  FLOH  IN  THE 

EDUCTOR 

GAIN— 30. 0 

LOSS -30.  0 

INITIALIZE  THE  COOLING  FLOH  TO  THE  MINIMUM  REQUIRED  FOR  THE  ENGINE 

INITIALIZE  PARAMETERS  TO  START  ITERATION 

DP  5b*  100. 0 

TMCD-710.0 

PT5=PO*144.0*D?56 

PaAIN-PTS+LOSS 

PSEC=?T5*GAIN 

SEAF.CH  FOR  A  HASTE  HEAT  BOILER,  THERE  PROBABLY  IS  NOT  A  BOILER 
INSTALLED  IN  THIS  SYSTEM. 

IND=0 

DO  u  I-C.SS 

TYrE-HORXI (1.2) 

IF  (TYPE. EQ. 27)  IND-1 
CONTINUE 

GET  ENGINE  PERFORMANCE  BASED  ON  ASSUMED  CONDITIONS 

CALL  ZM3XNS(IN  LOSS , EX  LOSS, TO, ?0 , HUMID, HP, NP T , *2, *  6, P8, T8,3FC, 

♦  15  4,  NG,  OFF) 

IF  (OFF.EQ.  0)  GC  10  6 

NR ITE  (6  .600) 

GC  TO  500 


CONTINUE 

INITIALIZE  INLET  CONDITIONS  FOR  BRANCH  1-2 


COMPUTE  PITTING  LOSSES 
DO  8  1=1,?? 

TY?E**ORKI (1,2) 

D1TA1=80RK3  (1,1) 

DATA2=WORKR  1 1,  2) 

D AIA3* WORKR  1,3) 

DATA4*W0RKR  1,4) 

CALI  PI  TO?  (H.HP,?TIN,TIN,PTOUT,TOUT,?V,DATA1,DATA2,DATA3 

►  0AIA4,TTPS#DEL?,5.  , 0., 3. 1 3., 3. ,0. ,oT ,Z.  ,0.,0. ,0. ,o!,o.,o 

►  5.  ,to( 

DP  (I)  *DELP 
DP12*DP12+DZLP 
PITPV !I)*PV 
PTIN*  PTOUT 
TIN«TOOT 
CCNTINOE 

CC3P0TE  PARAMETERS  AT  NODES  2  6  5 
TOTAL  PRESSURE  AT  NODE  2  (PSP) 

PT2*P0*144.0-QP12 
DENSITY  AT  NODE  2 
HHC2=  (PT2-PV) /  (tT3*459.7)*R) 

VELOCITIES  AT  NODE  2,  BRANCH,  COMBINED,  SAIN 
VDW6=»SC/  (RH02*ADW8) 

VD  «C=  (WC*8  2)  /  (  RHC2  *AD  WC) 

VO  RH  =  92/ (  R  H02  *  ADS  S) 

TEMPERA! jES  IN  SAIN  JET  (ENGINE  EXHAUST)  AT  NODE  5 
THAIN=T8 

IF  A  BOILER  IS  INSTALLED  TMAIN  IS  3CILEF.  EXIT  TESP 
IF  (INC. 20.  1)  TMAIN*770.0*3.  70E-3*HP 

COMPUTE  COMBINED  FLO 8  TEMPERATURE  BASE  ON  ENTKALOPIES 
HSEC=  (1.  4  21385E-5*TMOD*.221QS1)  *TMOD*5.6373 
HMAIN=(1.S6051E-S*TSAIS* .2236  8)  *TSAIN»4. 7538  6 


RHCCC  =  PT5/  (fi*T5 


(fi  *T5) 
,>  IH  •  TK( 


VCK3=HC/(RHOC2*ACWB) 

VC’.C=»  <H0*H8)/  (EHCCC*AC«C) 
VCRM*88/ f  R  HOCM  *  AC8M) 
COHPUIE  THE  VELOCITY  PRES 


NODE  5,  BRANCH,  COMBINED,  SAIN 


I5B=FSEC-PV3 
F3C=PT5-?VC 
PS  S=  EMAIN  — ?V  S 

COMPUTE  DENSITIES  AROUND  NODE  5 


PRESSURES  AROUND  NODE  5 


NODE  5 


TEST  ASSUMED  DENSITIES  AND  COMPUTED  DENSITIES 
TEST1=>ABS  (RHOCET-RHOCE) 

TEST2=ABS (RHOCCT-RHOCC) 

TEST3=AB  S (RHOCMT-RHOC  Mj 
8HCC3*RHOC3T 
RHCCC=RHOCCT 
SHCCM=RHOCMT 

IP  (TESTI  .  G  T.  0.  001)  GO  TO  10 
~F  (TEST2.  GT.0.001)  G 
FjTEST3.GT.0.C0l)  3 
NXIIALIZE  INLET  CON 


SO  TC  10 
30  TC  10 

ONDITICNS  FOR  BRANCH  5-6 
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ax:;=T5 

?TIN=?0*l44.  J*DP56 

DP  66  =  0.0 

W=MC*N3 

COMPUTE  FITTING  LOSSES 
OG  12  1=0. N 

TYPE*  MO  SK  1(1, 21 
0ATA1  =  MCRKS  (1,11 
DAIA2=»Oaxa  1,2) 

E ATA3  *  MORXR  (1,3) 


DATA3*  MORXR  (1,3) 
DATA4=M0SKS  1,4 
CALL  FITDP ( W.HP, 
ril’iu  -  vd  p  ncr  3 


PTIN,  IIN,?TOUT,ICUT,?V,DATA1,DATA2,DAIA3 , 

0.,0.,0.,0.,J.,0.,0.,0.,J.,0.,0. ,0.  ,  0.  ,0 


♦  DATA4.TYPE,DELP,0. ,0. ,0.,0., 0. ,0. ,o!  ,0.  , 

♦  0.  ,T0 ) 

OP  (I)  =  D  ELP 
DP56*  DP564DELP 
FITP7  (I)=p7 
PTIN* PTOUT 
TIS=TOUT 

CC  NT I  NOE 

EXIT  PRESSURE  SHOULD  3E  ATMOSPHERIC,  IF  N31 
TEST®  ABS (FTOUT-PO«144.0) 

IF  (TEST.  LT.  1 . 0 )  GO  TO  14 
GO  TO  1 1 
CO  NT  I  NOE 

FT5=P0*144.04D?56 

INITIALIZE  INLET  CONDITIONS  FOR  3SANCH  2-3 
?TIN=PT2 
II N=I0*459 . 7 
DP  23  =  0.0 

COMPUTE  FITTING  LOSSES 
DO  20  1=  A , 00 

TY?E=H05){l  (1,21 
DATA1=HOHKH  (1,1) 


NOT  REPEAT 


CALL  FITDP (S2,H?,P TIN. TIN, PTOUT, TOUT. PT , DAT A1 . DAT A2 , DATA3, 

DP  (I)  =  DEL? 

Dp ij=DP  23*D  EIP 


FITPV (Il  =  _ . 

PTIN=  PTOUT 
II N=TOU  T 
CONTINUE 

INITIALIZE  INLET  CONDITIONS  FOR  3BANCH  3-5 
PTIN=?a*144. 0 
TIN=T3 
DP  35  =  C. 3 

COMPUTE  FITTING  LOSSES 
DO  35  I=C,SS 

ty?e=w6rki (1,2) 

DATA1  =HOaKR  (I,  1) 

DAIA2  =  MOHXR  (1,2) 


3»D£IP 
=  P7 
UT 


DATA3  =  WORXR  (1,3 
CATA4=BORKR (1,4 
CALL  FITDP (S3,H 


ALL  Fipp  (Sa,  H?,P  TIN,  UN,  PTOUT.  TOUT.  ?7,  DATA),  DAT  A2,  DAT  A3, 
vcwcl6:l|S.  ,o!“fiocc?i6j>"AC'l3'icS"'^C3j£' 


» vnw (U(|U 

DP  (I)  *DELP 
DP35*  DP35 ♦ D  ELP 
FITP7 (I) =P7 
PTIN* PTOUT 
TIN=TOUT 

LOSS  IS  FROM  NOJENIUa  TRANSFER  TO  COOLING  FLOW 
IF  (TYPE. EQ.  16)  LOSS*DELP 
CONTINUE 

EXIT  PRESSURE  SHOULD  BE  PT5,  IF  NOT  REPEAT 


?7  (I)=P7 
»*  PTOUT 


1?0 


IIST  =  A3S (PT0UT-FT5) 

Cf  (TZS7.LT. 1.0)  00  TO  40 

D"TVa3rtil  ,ni  *^DC 


PTIN=?0*l44.0*OP35*DP56 
GO  TO  30 
CONTINUE 

COMPARE  AS SU.1  ZD  LOSSES  WITH  COMPUTED  LOSSES 

INIOSS=INLCSS*5.19696 

EXLC53=EXL0SS»5.19o96 


?TIM=?T2 
TI  N=T  0*459.7 
OP  25=  0. 0 
DO  60  1=3, HE 


.  0) )  GO  TC  5 

3RANCH  2-5,  MO  FAN  (NOOZ  4) 


u  x—  -j  r 

TY?£=90RKI  (1,2) 
DATA1  =  WOEXH  (I, 1 


DATA2=WORKR  I,  2) 

DATA3=WORKR jl,3) 

DA  TA4  =  SOS  XR  (1,4) 

CALL  FITDP  (KC,aP,?TIH.TIN,PT0UI,TG3T,?V.  DATA  1 , DA IA2 . DATA  3, 
DATA4.TYPE,DELP,  ALr  AC.O.  ,ACH3,  ACBM,  ACiTC.O.  ,0.  ,  0  .  ,  7  CT  B ,  7  CW  M , 
VCWC  , 0  .  ,  0.  , 0.,  3HOCC,  TO) 

DP  (I)  =D  si? 

DP25=DP25*D£IP 
FIIPV (I) =P  V 

?t:n=ptcut 

7IN=TOUT 

GAIN  IS  FROM  MOMZNTOM  TRANSFER  FROM  ENGINE  EXHAUST 


IF  (TYPE.EQ.  15)  GAI  N=0 ELP 
IF  TXPE.E0.26)  TMOD=IOUT 
3NTINUE 


EXIT  PRESSURE  SHOULD  BE  PT5,  IF  SOT  REPEAT  ITERATION 
I3ST*ABS (PTOUT-PT5) 

IF  (TEST.  LT. 1.01  GO  TO  70 

INCREASE  COOLING  FLOP  ONTIL  SXSTEM  IS  MATCHED 

WC=«C*0.1 

GO  TD  5 

SYSTEM  IS  MATCHED,  OUTPUT  HESUSTS 

CALL  OUTP UT (TO, ?0, HUMID, HP, NPT, S, NOR XI ,  IP, FITPV, INLOSS, EXLOSS,»C, 

♦  W2.W3 , ?  8, T9  ,  SFC , 15 4, NG, SERIAL,  I MOD) 

D?12  =  5?l5/5!  19fcS6 

D?23  =  DP23/5.  196S6 

DP35=DP35/5. 19696 

DP56  =  DP5t>/5.  19696 

DP 25  =  DP25/5. 19656 

CUIFUT  3RANCH  LCSS  SUMMARY 

WRITE  (4,601)  0P12,DP23,D?35,DP56,D?25 

CC  NT'"  'luE 

FORMAT (’  POSER  POINT  IS  NOT  ON  THE  PERFORMANCE  MAP.*) 

FCFMAI(/5X,' LOSS  BRANCH  1-2: ' , F  12. 2, /Si , ’ LOSS  3R A NCH  2  -  3 : • , FI  2. 2 , 

♦  /5X , ' LOSS  3FANCH  3-5 : • , ? 12. 2, /5X , ' LD SS  3RANCH  5-6:', F12 .2, 

♦  /5X,'LOSS  BRANCH  2-5:', FI 2.2) 

FETURN 

ZNC 


no  n  n  n  n  on  nnnnnnnnnnn 


SYSTEM  5 IX  MATCHING  SUBROUTINE 

THIS  SYSTEM  HAS  SErAR  ATE  INLETS  SOS  COO II N 3  FLOW  AN D  ENGINE  Ala. 
THE  TWO  FLOW  JOIN  II  AN  ELUCTOS  ASAN GEM  SKI  AT  THE  ENGINE  EXHAUST 
PLANE.  THESE  IS  NO  COOLING  FAN  INSTALLED.  THE  EDUCTC3  PROVIDES 
ALL  THE  PUMPING  ACTION  3Y  MOMENTUM  TRANSFER  FROM  A  HIGH  VELOCITY 
JET  (ENGINE  EXHAUST  THROUGH  A  NOEELE)  TO  A  LON  VELOCITY  JET 
(MODULE  COOLING  FLOB) . 

SUBROUTINE  SYS  6  (SE3I A  L.  A  ,  NO  6  KI ,  NOS  XS  ,  HP  ,  NP  T ,  F  ITT  S  T,  TO,  ?  0,  si  U  MI  D , 

♦  ALFAC. ACNS, ACNC.ACNM) 

SEAL  XOBKR.HP, NET .TO.  PO , HU  MID , 0 : .1 A AY , E FM 0, D ? MA I , X , • 2 , i 8 ,?9 , 19 , 

♦  INLOSS. EXLC3S.D? 1 3 . 0?25 . DP  35 , LP3Q . ?V, PTIN , PTCUT, 0  AT A 1 , 

♦  DAT A2. 5 AT A3. r*ST .DP, FIT? V, NC.SrfOS ID,  TEST  1,1  ESI 2. NON, TMOD, 

♦  TS4,SFC,HG. 

*.  n »  T*  1  c  A  ’  ?  i  r  ;  u  o  irur  irv-j  ’rrua  'Jr-  »-  ur  mu  ~  u  ■  V  H  «r  *a/-\ 


DIMENSION  BOH KI  (20  3,2) .80S KS (20  0,4) , FIT  1ST (6)  , DP  (20  0)  , FITPV  (2001 
GAS  CONSTANT 
DATA  E/53. 3424/ 

51 A ST TNG  AND  STOPPING  POINTS  FOS  THE  3BAN0H  FITTING  INDEX 
PP  =  FI!13T  (21-1 


PP-FIT13T  21-1 
0C  =  F  II1S I  3)  -1 
aE=FIT  1ST  4)  —  1 

a=fitis: (i) 


B=  FIT  1ST  3) 

C*F2I  isr  1  4 \ 

INITIALI EE  THE  INLET  AND  EXHAUST  DUCT  LOSSES  (INCH  RG) 

INIOSS*4.0 

EXLCSS-H. 0 

INITIALISE  THE  GAIN  AND  LOSS  IN  THE  ED'JCTDR  (PSF) 

G  AIN  *-  30  . 3 
LC SS  =  30.  0 


INITIALIEE  TEH  COOLING  F1CR  TO  THE  MI 
NC=7.  5 


MUM  SEQUIHED 


INITIALIEE  OTHER  7ALUES 

D?5o  *  100 . 0 

:mcd=7io. j 

PT5=PO*l44.0*DP56 

PM  AIN  =?T  5  ♦  LO  SS 

?S£C=PT5»GAIN 

SEARCH  FOR  A  3CILER,  THERE  PR03  ABLY  IS  NOT  ONE  INSTALLED  FOR  THIS 
SYSTEM 

i:ic=o 

do  4  :*c,as 

T  Y  PS*  *0  SKI  (1.2) 

IF  (TYPE. EQ.  27)  IND*1 
CONTINUE 

GET  ENGINE  PERFORMANCE  FCS  THE  ASSUMED  CONDITIONS 

CA  LL  ENGINE  (IN  IOSS,  EX  LOSS,  TO,  ?0  ,  .1 J  MI  D,  rl  F,  :l  ?  T  ,  *  2  ,  N  9,  P8 ,  T  3  ,S  F 1, 

♦  T5  4,  NG,CP  F) 

IF  (OFF. SJ.  0)  GO  TO  e 

UZ^H00) 

CCNIINUE 

INITIALIEE  THE  INLET  CONDITIONS  FOS  BRANCH  1-3 

DP13* 0.0 

PTIN  *?0* 14  4. 0 

TIN»I0*459.7 

COMPUTE  FITTING  LOSSES 

DC  3  1*1, PP 

TYPE* BOSK I (1,2) 

DATA1  *BCRKH  (I,  1) 

0ATA2*KOSKR  (1,2 


nnnnfii  inonno 


nr, 


DATA3=W0RRR  (1,3) 

DATA4=W0R  KR  (1,4) 

CALL  FITO?  (  «2«  HP. P  TIN  .TIN.  PI  OUT. TOUT,?'/,  DATA1 , 
DA IA4.T YPE.DELP, J.  ,Q.(0.,J.,0.  ,  J .  ,3.  ,0. , 3 . , 0 .  , 


DA TA2 , 

0. ,0.« 


T  u  n  .  f  _  ir  _  f  ^  ^  |  ^  .  r  v  .  ,  ^  .  r  u  • 

♦  0.  ,10) 

DP  (I)  =D  iL? 

D?T3=D?13*DE1P 
F ITPV (I ) *  P  7 
?TIN= PI  OUT 

tin=toot 

CC  Nil. NOS 

COMPOTE  PARAMETERS  FOB  NODE  5 

MAIN  JET  TEMPERATURE  (ENGINE  EX  HAGS") 

TM  AIN  =T8 

IF  A  BOILER  IS  INSTALLED,  TMAIN  IS  BOILER  EXIT  TEMPERA II 
IF  (IND.SQ. 1)  TMAIN=770.0*3.70£-3*H? 

COMPUTE  COM3INEL  FLOW  TEMPERATU  B  E  FOB  NODE  5,  3SIN3  ENT:- 

HSEC=  (1.  421385E-5«TMOD*.221091)  »T!!OD*5 . 637  3 

HMAI N= (1 . 660 5 1 E-5*TMA IN*. 22333) *?MAIN*4 . 75 3 56 

HSTACK= j W8/ ( W8  *UC) ) *  H  HAIN* ( WC/ ( *8 ♦ WC j  )  *HSEC 

15= (-C. J0034 17«HST\CK*4. 33577) «H STAC X-9 . 5778 

ASSUME  NODS  5  DENSITIES,  COMBINED,  35ANCH,  AND  MAIN 


DATA  3, 

o.,o.. 


DHALOPIES 


HHCCM=PM AIN/ (R*TMAIN) 

COMPUTE  NODE  5  VELOCITIES  3EANCH,  COMBINED  AND  MAJ 
VC3  B=WC/  ( E  HOC3  *  ACV  3) 

rrr-  or  —  /  ^  a  a  i  s  /  rmnrr*  i  /—  nr'  % 


VCWC  =  .(WT*»8)  /  (EHOCC*ACWC) 

7C  NM=  48/ (  BHOCM  «ACW  M) 

COMPUTE  THE  VELOCITY  PBES30BES 


ABOUND  NODE  5 


COMPUTE  STATIC  PBEiSUBSS  ABOUND  NODE  5 

FSE=PSEC-?VB 

ESC=PT5-?VC 

ESM=PMAIN-?73 

COMPUTE  DENSITIES  ABOUND  NODE  5 
RHCCET=PSB/(R*TMCD) 

3HCCCT=PSC/(R*T5) 

RHCCMT=PSM/(R* TMAIN) 

TEST  ASSUMED  DENSITIES  AND  COMPUTED  DENSITIES 
ISST1 =ABS (SHOCEI-BHCCE) 

TEST2=ABS ( BHOCCT- BHOC  C) 

IEST3  =  ABS ( EHOC  MT-iHCC  M) 

R  HOC  E=fiHCC  3T 
EHCCC=EHOCCT 
HHCCM=RHOCMT 

IF  (TEST1.  GT.  0.  001)  GO  TO  10 

IF  TE3T2.GT.  0.  C01)  30  TO  10 

IF  ITEST3.  GT. 0. 0015  GO  TC  10 

INITIALIZE  INLET  CONDITIONS  FOR  BRANCH  1-2 

TI  N=T  5 

PTIN  =  P0* 144.  0*DP56 
DP56=0.0 

COMPUTE  FITTING  LOSSES 
DC  12  I=C. M 


TYPE=w6bKI (1,2) 
DATA1  =  WOHKB  (I, 1 


DAIA2=BORKH (1,2 
DAIA3=«OHKB  1,3) 

DA  TA4  =  WOR  KB  II,  aj 

CALL  FIT0?  (HZ. HP. PTIN, TIN. PIOUT, TOUT, ?V,  DATA  1, 

dataw.typs.deLp.o.  ,0. ,0.  ,5. ,0.  ,0. ,0. ,0.  ,0. , 0.  , 

0..T0) 

DP  (I)  =d£l? 

DP  56=  DP56 ♦ 0  EIP 
FTTP7 ( I ) =PV 
PTIN=  PI  OUT 


DA  112, 

0. ,0.  , 


DATA  3, 

0. , 0  . , 
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iiN=rouT 
CC  NT  I  .'IDS 

ET II  ISM  p  EF.ATU  EE  SHOULD  3E  AT  SC  5?  HE?.  IC  IF  NOT  REPEAT  IT 
TEST*  A3S (FTOUT-PO* 144.0) 

It  (TEST. LT. 1.0)  GO  T3  14 
3C  TO  11 
CONTINUE 

FT5=P0*144.0*DP56 

INITIALISE  INLET  CONDITIONS  FOB  BRANCH  3-5 
?TIN  =  ?8*  144.  0 
II N=TS 
DP  55  =  0. 0 

COMPUTE  FITTING  LOSSES 
DO  20  1=3.  RR 

TYF3=HOSKI £1,2) 

CATA1  =H03 KR  (I,  1) 

DATA2  =  HOE  KR  1,2) 

DATA3  =  HOE  KR  |l, 3 
DATA4  =  WCEKR  (1,4) 

CALL  FI  IDF  (H8, HP,?  TIN , TI N, FTO JT , TOUT ,?V,  D ATA1  ,  DAT  A2  , 

♦  DATA41TYPE,:ELP,0.,aLFAD,  0.  ,o. ,j.,a£k3, auwm,adhc,o. 

♦  VDK3 , VDNM , VDH C , 0 . , 0 . , TO ) 

DP  (I)  =  DEL? 

DP ‘5=D?  354DELP 
FITPV  ( I )  =  P  V 
PTIN=?TCUT 
TIN=rOUT 

IF  (TYPE. Eg.  16)  LOS S=D ELP 

r-  r'  kit-t  vfrr-  ' 


0ATA3, 

,0.  , 


CC Nil  NOE 

COMPARE  ASSUMED  LOSSES  AND  COMPUTED  LOSSES, 
INICSS=INLCSS*5. 19636 
EXICSS=EXLOSS*5.1S636 
TEST  1 =A3S (OP  12* lP 23-IN LOSS) 

IEST2  =A3S (D?35*CP5o-SXLC33) 


NOT  THE  SAME  REP 


?TIN=?0*iua. o 
II N=I 0*459 . 7 
DP  25  =  0. 0 

CCMPUIE  FITTING  LOSSES 
DO  35  I=A,QO 

T Y FE=  HO RXI  ( 1 ,2 ) 

D  A  TA 1  =  NOR  KR  (I,  1) 

C  A IA2  =  WOR  K3  (1,2) 

DATA3  =  HCRKR  (1,3) 

DATA4=H0fiXR(I,4) 

CALI  FITDP  (SC, HP.? TIN, TIN, PTOUT , TOUT ,?V , DATA 1, DAT A2, 
«■  0AIA4.TY  PE, SELF, ALFAC.0.,  ACH3,  ACHM,  ACNE,  0.  ,0.  ,0.,7C 
♦  7CHC,5.f 0. ,0.,RHOCC,T0) 

DP(I)=DSi? 

DP  2S=  OF  25*D ELP 
FITPV (I)=?V 
FT IN=  PTCUT 
II N=I OUT 

GAIN  IS  RESULT  OF  MOMENTUM  TRANSFER  FROM  EXHAUST  TO 
r T  cN 

IF  (TYPE. SO.  15)  GAI  N*DEL? 

IF  (TYPE. EQ. 26)  I20D=T0UT 
CONTINUE 

EXIT  PRESSURE  SHOULD  3E  FT5,  IF  NOT  REP EAI  ITERATION 
TEST* ABS ( PTOUT -PT5) 

IF  (TEST.  LT.  1. 0)  GO  TO  40 

NEXT  ITERATION  IS  DONE  WITH  INCREASED  COOLING  FLCH , 
UNTIL  SYSTEM  IS  MATCHED 
WC=WO+0.1 
GC  TO  5 
CONTINUE 


DATA3, 
-.3,  VCil 3, 


COOLING 


INCREASE 
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tv 


70 


50  0 
o  JO 
oJ  1 


WORKI.  DP.FITPV.ISLCSS, zxlcss.wc, 

I.iOli) 


SYSTEM  IS  HATCHED,  OUTPUT  RESULTS 
CALL  CUTPUT(T0  ,?0, HUMID, HP, KPT, U, WO 

♦  W2,ua ,?3,T9  ,SFC,T5 4, NG, SERIAL, IM 
D?13=5?l3/5!l9o96 
DP  ..5  =  DP2  5/ 5-  : 9o;6 

E?  35  =  DF3  5/5. 10o96 

DP5e=DP56/5.  19696 

OUTPUT  3RAUCH  ICES  SUMMARY 

4“  -T  E  (4,601)  DP13,D?25,DP35,DP56,DP25 

CO  N . IN  UE 

FCRMATf'  POWER  POINT  IS  NOT  ON  THE  PEE-CRMANC1,  MAP.M 
FORMAT  (/5X,*  LOSS  3RASCH  1-3 :* ,F 12?2,/5X,' LOSS  EFANCH  2-5 

*  _ /Sx '* L0SS  3SAMCH  3-5:* ,?12.2,/5X, 'LOSS  ERANCH  5-6 

r z.  »U  S  N 
END 


: ' ,  FI  2. 2  , 

F12.2) 


« 


« 


on  no  non  rmnnoonn 


FAN  MATCHING  SUBROUTINE 

THIS  SUBROUTINE  PRODU C ES  THE  NEXT  GUESS  AT  COCLING  FLOW  3Y 
LOCATING  THE  I NTERSEC  TIC  N  OF  THE  SYSTEM  HOTEL  CURVE  AND  THE 
FAN  C HAH AC TER I STIC  CURVE. 

***************  *******************************************************(; 

SUBROUTINE  PAN  HAT (KC, TO , PO . FA ND P, RHOSTD , C? M 0 . CFN H AX , D? M AX, K.WCN) 
REAL  CFMSTD, DPSID.WC, RHO STD , F AN D? , PO , T D , C, C F 5 , WCN ,C 130 , CFHH AX , 

♦  DPMAX.K.R 
GAS  CONSTANT 
DATA  R/53.3424/ 

CONVERT  HAS  FLOS  TO  STANDARD  VOL'J HE  FLON  (CFM) 
CFMSTD=WC/RHOSTC«60.0 

CONVERT  FAN  DELTA  PRESSURE  TO  STANDARD  CONDITONS  FOR  THE  FAN 
DPSTD*FANDP* (RHCSID*R * (T0+U59. 7) / (?3 *  1 44. 3  )  ) «*2 

C  IS  THE  PROPORTIONAL  ITT  CONSTANT  FOR  THE  QUADRATIC  JODEL  ASSUMED 
TC  REPRESENT  THE  SYSTEM 
C=  CPSID/CFMST  D  **2 

CFM  IS  THE  INTERSECTION  OF  THE  FAN  CHARACTERISTIC  AND  SYSTEM 
MODEL 

CFN=  (2.0*K*CFMMAX-SORT  (  (2. 0*K*C FMMAX) **2-4.  0* ( K-C) * (K*CFMMAX**2 

♦  +DPMAX1)  )/ (2.0*(K-C)  } 

I  CONVERT  CFM  TO  MASS  FLOW 

WCN=EKOSID*CFM/60.0 


UUUUUUUl 


non no non 


1 

2 

3 

4 

s 

6 

7 

8 

9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


COMPUTE  OUTPUT  SUBROUTINE:  PRINTS  SiSTEN  DATA 

THIS  SUBROUTINE  WRITES  TO  THE  OUTPUT  FILE.  IF  YOU  HAVE  AN  OUTPUT 
FILE  ALSEADY  IT  WILL  EE  WRITTEN  OVER  BY  THIS  PRCGRIS.  IF  YOU 
WANT  TO  SANE  THE  PREVIOUS  RESULTS.  R ENA-1  £  THE  FILE.  IF  YOU  ADD 
OR  CHANS  E  FITTINGS  YOU  NUST  HAKE  ScM.E  CHANGES  HEPE. 


SUBROUT 

► 

REAL  TO 


UTINE  OUTPUT  (TO.  ?0,  HOMO  .HP,  NPT.  N.  HOF  KI  ,  OP.  FITPV,  INLOSS. 

E XL CSS, NC , B2,H8,?8,Td,SFC .T54.N5,  SERIAL,  TMOD) 

TO, ?0, HO  SIC, HP, MPT, DP, FITP V, INLCSS .EXLOSS , WC , W 2, TMOD, 
38,P8,T8'sf£,T54,n£ 

ER  N.WORXI.SERIAL.TYPE 


WRITS  (4,602)  WC,W2fW8,?8,T3,SFCfI54,NG,TMQD 
DC  100  1*1 J 


I  U  W  A.  ■  #  A* 

DP  (I)  =DP (I)  /S.  19696 
TY2s=W0RKI (1,2) 
FITPV  (I)  =  FITfV  (I)  / 5 


PV  (I)  /5.  19696 


GO  TO  (1,2.3,4.5.6,7.8.9,10,11,12,13,14,15,16,17,18,19,20, 
21, 2 2, 23. 24 '25, 26, 27,  28,  29.30)  ,T{PS 
WRITE  ^4^  603)  WGF.KI(I,1)  .WORKI  (1,2)  ,DP(I)  ,FITPV(I) 

WRITE  j  4j  60  4 1  WORK  I  (1 , 1 )  ,  WORKI  (1,2)  ,  OP  ( I)  ,  FIT  PV  ( I) 

WRITS  ^  4g  6  0  5)  WORKI  (I,lT,~wein«'tI>a)_JLDP(t)  ,FIT?V(I) 

WRITE  ^gj606)  WORKI  (1,1)  ,  WORKI  (1,2)  ,  DP  ( I)  ,  FfTPV  (!■) 

WRITS  |4^b07)  BOHKI  (1,1)  .WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 

WRITS  |4j6 08)  WORKI  (1,1) .WORKI  (1,2)  , DP(I)  ,FIT?V(I) 

WRITE  (4.609)  WORKI  (1,1)  , WORKI  (1,2)  ,  DP(I)  ,FIT?V(I) 

GO  TO  TOO 


WRITS  |^61°)  WORKI  (1,1)  .WORKI  (1,2)  ,DP(I)  ,FITPV(I) 
WRITE  |4j611)  WORKI  (1,1)  , WORKI  (1,2)  ,D?(I)  ,  FITPV  (I) 
WRITE  |U^612)  WORKI  (1,1)  , WORKI  (1,2)  ,DP(I)  ,FITrV(I) 
WRITS  j4^613)  WCP.  K I  (I  ,  1 )  ,  WOR  KI  (1,2)  ,  DP  ( I )  ,  FIT  PV  ( I) 

WRITS  |4^61U)  W03  K I  (1 ,  1 )  .WORKI  (1,2)  ,DP(I)  ,  F  IT  P  V  ( I) 

WRITS  j4^615)  WOR  K I  (I  ,  1 )  .WORKI  (1,2)  ,DP(I)  ,FITPV(I) 
WRITS  ^616)  »ORKI(I,1)  .WORKI  (1,2)  ,D?(I)  ,FITPV(I) 
WRITS  |4^617)  WORKI  (1,1)  .WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
WRITS  |4^618)  WORKI  (1,1)  .WORKI  (1,2)  ,D?(I)  ,FITPV(I) 
WRITS  |4j61S)  WORKI  (1,1)  , WORKI  (1,2)  ,DP(I)  ,FITPV(I) 
WRITE  |4j620)  WORKI  (1,1)  .WORKI  (1,2)  ,  DP(I)  ,FITPV(I) 
WRITS  |4g621)  WORKI  (1,1)  .WORKI  (1,2)  ,DP(I)  ,riTrV(I) 
WRITE  |4^622)  WORKI  (1,1)  , WORKI  (1,2)  ,DP(I)  ,FIT?V(I) 
WRITE  |4j623)  WORKI  (1,1)  .WORKI  (1,2)  ,DP(I)  ,FITPV(I) 
WRITE  |  6  2  U)  WORKI  (1,1)  .WORKI  (1,2)  ,DP(I)  ,FITPV(I) 

WRITS  (4,  62  5)  WORKI  (1,1)  .WORKI  (1,2)  ,  DP  (I)  ,  FITPV  (I) 


nnnononn 


4£PEN£IJ  B 
PLO 1  CHARTS 


MAIN  PROGRAM  NO  INPUT  OR  OUTPUT  VARIABLES 


EDIT 


CALL 

ED 


owtr 


EXIT 

STOP 

PROGRAM 
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Jt 

JE 


t . 


■ZT  Build  Subroutine 

THERE  ARE  A to  INPUT  OR.  OUTPUT  VARIABLES 
foR  This  JuBRouT/uE,  HOWEVER  S  u  3  ROuT/w  £S 
CALLED  BY  TH£  BUILD  Su  BROUTiajE  DO 

handle  input  rnd  output  data 


> 

si 

CALL  INST 

9 

determines 

INSTRUCTIONS 

Desired  by 

THE  USER  AND 

TYPE.  OF  TERMINAL  USER. 

■'v 

IS  OPERATin  6» 

• 

"  ’!• 

’ 

► . 

■ 

Call  system 

the  system 

CLAiS/r/c  at/oh 

IS  determined  by  This 

> - 

Subroutine 

THE  SYSTEM 

• 

s 

Class  if,  (.at/on  shown 

/V  hlbUKS 

2  b  /  S 

■ 

\\ 

Represented  qy  the 

inteleir  i /ar/a  ole  Class 

• 

— 

m 


Geort(i)  *  1131  01 
Geo* (I)-*  1 Z4 00 * 
G£0*(3)  r  134  ioi 
CeoM{<<)--  14  root 
B Ran 04  *  4 


Geo*(i)  =  2.122.01 
Geo*(z.)=  22.3  \  0  l 
6eoM(j)=224  00l 
Geo  *(4)  *  234  \  0( 
6£om  (5)--24S‘00 1 
Branch  =  ST 


GPom  (i)* 
Gc  OM  (2-)  = 
GC0M(3)  * 
<4t'OM  C4) 1 

Geom  (S-)- 

GfO M  (i)  : 


*312201 
=  323101 
»  J24001 

--  335”I0I 

--34S-001 


=■354201 


GEOM(i)  =  413  IOI 
GEOnv(z)  r  424001 
GG0tv\(3>43SI0l 
Ge0/4(4)=  44S001 
G>£0M(s)=4SfcZD| 
Branch  =  5 


branch  - 


GeoM(i)»?iz20l 
Geof*(x)  =  523!Oi 
(3)*  SZ5001 
Geom  (^)-53S'l0l 
Geor^C 5)--  556201 
BRANCH  =  5 


66&m(i)»  *13101 
GtoN\(x)-  4231  0/ 
Geom(s>  43SI01 
Ch)=  feS*feZOI 
Branch  -  4 


CONTIN  ue 
M  =  0 


7.TMV 

DO  FROM  \ 

1  =  1  TO  / 
BRANCH  / 

( 

CALL  MENU  (  M,  TER.MjTYPP  (  6C0M(I) 
INPUT:  M  ,  TERM  ,  G£C>t*\(l) 

OUTPUT:  TV  PE 

This  SUBROUTINE  DISPLAYS  A  MENU  TO 
TH£  USER.  TUC  USER.  WAKES  A 
SELECTION  From  THIRTY.  F|TT|N6 
CHOICES.  THE  FITTING  ID  NUMBER 

For  the  next  fitting  to  Be  input 


TYPCi  O 


WRITE  WARNING 
To  USER,  INPUT 
NEW  ID  NUMBER 


type=o 


M  =  M+  I 


/'s\ 

I  *  branch 


I _ 

CALL  .SELECT  (  M,  SOft-L,  CEOM  ([') ,  TYPE  ,  WORK  I,  wOR<R.) 
INPUT  (M;ioi*L,  GcDK(l),  TYPE 
OuTftiT.  WORK  I.  ,  WORK'S. 

TmS  SuGf?ouTiNie  g*anc nes  To  rue  Fitting 


Hr  Editing  subroutine  (ed) 

There  are  no  input  or.  output  vpr:abl 

TOR  T4i S  SuSROUT/a/E  ,  f-i Ow O  \/'ET  S  U  p  Rj 
Called  BY  TnE  EL  Su  g*ou  Ti  he  Do 
handle  input  and  Output  data 


WHAT  IS  TuE  INDEX  NUmSER,  M, 

of  the  fitting  \n  the  duct 
Data  File  to  BE  CHANGED? 


a 


using  The  menu  >f  necessary, 

Select  the  new  Fitting 

DESiRED 

and  EnTER  information 

SO  Th  at 

variables  IN  Duct  pat  a 

ARRAYS 

With  index  -Selected, 

M,  MAY 

1  BE  CHANGED- 

Ca i_ l  menu 

call  SELECT 

^  MORE  v 

.Changes 

V  ?  / 


WHAT  IS  The  INDEX  Num££R,rA, 

of  the  fitting  to  bf  deleted7 


REwock  the  Fitting  Id 
numbers  within  the 
Affected  branch  so 
that  id  numbers  are 
consecutive  within  the 
Srancu  and  ARE  ASSOCIATED 
With  the  proper  data  and 
UNWANTED  FitTinG  IS 
DELETE  D 


WHAT  iS  T HE  INDEX  NUMBER.,  M, 
OF  THE  FITTING  THAT  THE 
FITTING  IS  TO  EE  ADDED 

after'7 


of  Em  up  THE  DATA  ARRAYS  TO  ACCEPT  THE 
NE'vV  F  I  TT  i  M  G'  S  DATA  AD  THE  DESIRED 
LOCATION  ,  INDEX  M+l.  RE\WO(?l<  THE 

affected  Id  Numbers  in  the  branch 

WHERE  THE  TiTTinG  )S  ADDED 


using  The  Menu  if  necessary. 

INSERT 

The  data 

FOR  the  NE'N  FlTT/MG 

AT 

the  M+i 

index 

CALL 

MENU 

CALL 

SELECT 

./do  roi>v 
''WANT  TO  X' 
vDP  ANOTHER 
\n  TTI  HG/ 


A 

\/ 


XE-.  COMPUTE-  CuBROUTuE 


READ  THb 

Duct  data 

FlL£ 


find  out  Th£  system  Classification 
Num  is  e  ft. 

Cl  ass  *  u/orxKlO/iooooo 


Based  on  the  system  class  in  cat  ion 

NUMBER,  SET  UP  THE  APPROPRIATE 
NUMBER.  or  BRANCHES 


TO  match  the  SYSTEM  EXTRACT 
FROM  THE  DucT  DATA  THE  AREAS 
OF  C ON  v E  R G  < nc-  AND  Pi  V E  RG-  i  M  G- 
WYES  (ADUJB,  ADWC;  ApWMy  ACWB, 

acw c,  acwm)  And  Angijes  cf 
junctions  (Alfa c  ,  Alfa P>) 


LOCATE 

the  Array  index- 

numbers 

OF 

Tu|fc£ 

Duct  data  fi 

le 

CORRt  SPonDinE 

“Tn 

Tut 

first  fitting 

OF 

A  BRANCH 

A 


a 


/  'S  x 
X L ASS  >4 
\  ?  / 


Cpt  fan 

CHARACTERISTICS 
CALL  FAN 


Co  to  The  system  Subroutine 

TAILORED  TO  COMPUTE  PRESSURE 

losses  for  the  class  system 
BEinC  £XAMINED _ 


c 


NO 


3T  S  Y-STCM  THR.ee  MAtc^i^G  JU8*0u~iajE  (SYS  3) 
Th  >5  Su0R.OUT.isje  \S  CAi_i_£0  By  the  compute 
SECTion  OF  THE  PROGRAM.  ALL  \/A  ft  1  A3leS 
ARE  input  FR.Otr  co^P  Si/3ROuT  iWE.  Th£R.£ 

ARF  no  OUTPUT  VfiRiAaues  RETsurnlD  to 
Comp,  all  Output  is  ujr.\tten  to  the 
PERPo«.  rvi^Nce  File  . 

•SfcT  UP  The  S  T  A  AT  1  rsJ  (*  AN  0  STOPPiNtr 
INDEXES  F OR  The  DATA  A fU^X  S  FOR. 

TM6  SRANtneS 


IfJI  Tl  ALi  Z.£  .SYSTEM  UARiASlES  FOR 
START  OF  ITEAAT|0|sJ 
Duct  Losses 

IN  LOSS  =  4-  0  C I NCH  iajc.) 

£xloss  -  8  o  C  inch  wg) 

CDuctor.  4AiiH 

Gain  --  -30,0  (PSF) 

Coolinj,  Floin  passage  loss 
LOSS  -  30  O  (  PSf) 

Cool i n  g  Flow 

WC,--  CFMMAX  A-  RHOSTd/GO.O 
Branch  infoR-aa  a  ti  on 
DP  AS"  =100.0  (pSp) 

DP5&  :  100-0  (Ps a) 

TM  OD  -710.0  (°Rl 

Ft  5-  =  p<p  *-  144.  0  +•  dpsg 


GET*  ENGINE  PER  FORM  AHce  PAftAmgTE  RS 

Based  On  Ambient  conditi £>ns, 

DESiRED  HORSe  POWER.  An  D  R.?m;  AMO 
INITIALIZED  OR  CURRENT  FLOVM 
ITERATION  CONDITIONS  OF  TME 
5V5TEM  ■ 


m 
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o 


COMPUTE  ASSUMED  DENSITIES  AT  MODE  5 
RWOCC  =  PT s/t  R  *T5) 

RHOOB  =  PSEC/C  R*TMOp) 

Rhocm*  Pmain/ ( R*  T^ain) 


m 


l  Li 


The  Sum  D?2S  1  +  delp 

>S  TUt  P£fc5SUftE  LOSS  FOR.  VH£ 


—  —  -  1 

System  is  matched 
call.  Output  and  print 
system  Results  to  tme. 

USER'S  Dl5<  _ _ 


FITTING  PRESSURE  LOSS  CALCULATION 
>Susf?c>utine .  Set  up  to  compute 
PRESSURE  LOSS  AND  VELOCITY  DATA  FOR 
30  FITTINGS  LISTED  IN  THE  MENU 


Go  TO  THE  COMPUTATION  FOR  THE  TYPE  OF  P1TT1NC, 


/'s  \ 

TEST  <  0  OS 

V  t  s' 


KZ^(((-3.5Sl47E-0Jt-  AlFAD  +• 

3  830<?E-fc)*  AlFaD4  S-.74E-5) 
*Alfad  4-  I  o<*E-3)#  Alfa  d 


4  (7  OOOO  17 


C  =  I  0  4-(VD wq/vowc)**  1  -to 

*  ( \J  PW3/ V  owe)  *  COS(a<-FAJ^ 

F7  j)-  K2-  *(VD\n3/i/DWC**Z 


kl  =  10 

RR  -  VO>3/v/CHn/rvi 
IF  RR>  0  8  K1--0.4 

C-  KW(l04(\/PWB/VDWC)##2- 
2.04(  VDW/B/V  DWC) *  COS(Alfad/ 
573;) 


PV  *  RMO  »  v/DWC  *A  2/(1  0  4  31  1 74) 
DP  -  C  4*  P'S 

P  V  1  RHO  *V0WB*-*2/(2  D  *3l- 1 7*4 ) 
PTOirr  •-  PTiv-  PP 
Tout  -tin 


Q 
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MAIN  SECTION  OF  A  DWedfelMC,  yy-fg 
CoeriCitNT  BASED  ON  /ElOcity  ratio 
C  =  0-4*  ( t  o-  v  D\wn\ /\/dwc)*x-2 
PV=  RMO  *  \/DWG  *X~  2/(2  O  #  3-2.  114) 
DP  =  C*  PV 

PV  =  Ruo  ^-'/DWM  0432. 174) 

PrOUT  =  PT/M  -  DP 
TOUT  =  Tim 


Q 


BRANCH  S£cTION  OF  a  CONVERGING  WYE 

C=|.0+(VcwB/'/Awc)  **2-20*  AOiajm/ 

ACWC  *(.VCWf^/vcWC)**2  -  2-0  X  ACvvB/ 
AC-INC  X  (i/Cw?/^wc.)xx2x  CosCalfX  c/sj.t) 
PV  =  RHOCC*  I/0WC4x1/(2-OX31I74) 

DP  3  C  ■*  PV 

PTOUT  =  PTiN  -  DP 

TOUT  =  PTOUT/  C  RKflHOCc) 


Q 


MAIN  SECTION  OF  A  CONVERGING  WYE 
Kl  3  I  •  IS-*  (  ACWfe/ACWC)**-  HI  +  (  l- 
AtFAc/fcO.o)  *  (  AC  WB /AC  INC  )  *  0-4 

Test  =  abs((  a  cwm  -  acwcJ/aowc) 
if  test  O  Of  THEN  K  1*0.0 
C=  1.0  4(\/CiNrA/\/CiNC}  4  *  z  -2.0  xACW/a/ 
Acwc  x-  (y  c  inm/vc^c)  *  42.-2  o  * 

(ACiNB/AOVc)  *  CVCwH  /vcwc)**t.* 
CoS(AtFAc/S73)  +  (Cl 

Dp  =  C  *  PV 

Ptout  -  p Tin  -  pp 

T  OU  T  =  PTO^T/(R * RHOCc) 


Q 


0- 


DIF  FuS£RS 

L=  SQRT  (40#  DATA  l  /3l4lt) 
RN  Z  RHO  *  L  *  \//|MU 

LAMDA  *  0.3164/RN  **0. 7-S 
CFR  =  OATAZ  *  LAMOA 
C  =  CFR  +  DATA  3 
DP  =  C  *  PV 
PTOUT  =  PT  IM  -  OP 
Tout  =Tinj 


CONTRACTl  ONS 
V  *  W/ (.  R  HO  *  DATA4) 

PV  -  RHO  *  V**z/U  o  *32.174) 
PP=  DATA3  *  PV 
PTOuT  =  PTlM  -  DP 
Tour  =  T(  M 


INLET  FILTER,  PRFSSuRF  LOSS 
.Eased  on  face  v/Eloc  itk 

DP  =  (  DATA  2  XV**  DA  tab)  X  S-Wbllr 
ptout  =  PTin  -  or 

TOUT  =  TIN 


<^A5  TuRBtWE  MODULE  ,  6 E  Ly\25oo 
LOSS  BASED  ON  MASS  Flow  RATE  OP 
COOCiwG  Alfi.  THROUGH  THE  MODULE 

DP  -  (\  fe»  £-3  *  W  *  *  2.  is)  *  S  14E4*> 

PV  -  O.D 

PTOUT  =  PTiN  -  DP 

TOUT  ^  TIN  4  25  O/W  *  i.HP/lOOoo  o  *|ooo) 


WASTE  HEAT  BOU_£R,  6 AS  SIDE  PRESSURE 
Loss  Based  on  tube  Bundle  geometry, 
Velocity  in  narrow  passage  of  tube 
Bundle,  friction  factor.  ,  F  C  Fumcfi on 

Of  REYNOLD^  NUMBER 

V=  V  A  DATA! 

Pv  =  RhoXV  **2-/(20  *  32.174) 

RN  '  Rho  DATA-4  /mu 

r  =•  I  334  *  RN  -4  X  (-o.  MS 3) 

DP  =  P  *  DATA  3  -*  p\/ 

PT  OUT  =  PT  IN  -  DP 
TOUT  =  O  oo  i85  x  HP  +  247  o  +  T <p 
R  MO  -  (PS-  DF) /(  R*  TOUT) 

V  =  W(RMO  *  DATA  |) 

_ PV=  RHO-*  V*  *Z  /(2.o  *  32.174-) 


Return  to  system 
Subroutine 


AP£EMfiII  C 
OSES' S  MANUAL 

A.  GENEBAL 

The  purpose  of  this  program  is  to  analyze  a  marine  qas 
turbine  installation  on  board  a  ship  complete  with  inlet, 
exhaust,  and  cooling  ductwork.  The  duct  geometry  must  be 
input  to  the  program  to  accomplish  this.  The  program  makes 
a  file  called  "duct  data"  which  contains  resistance  informa¬ 
tion  on  each  fitting  entered.  This  file  may  be  edited  with 
the  built  in  editor  cr  if  the  user  is  satisfied  with  the 
current  design  the  file  is  read  by  the  program  and  used  in 
the  COMPOTE  section  of  the  program.  COMPOTE  uses  the  duct 
data  file  and  inputs  dealing  with  the  operating  point  of  the 
engine  to  produce  the  performance  parameters  of  the  system. 
Performance  includes  both  engine  parameters  and  duct  losses. 
All  procedures  in  the  program  are  accomplished  using  an 
interactive  terminal  session. 

There  are  two  versions  of  the  program  discussed  in  this 
user's  manual.  Version  1.0  is  implemented  on  the  NPS  IBM 
3033  computer.  Version  1.1  is  implemented  on  the  NPS  VAX-11 
computer. 

This  user's  manual  will  discuss  the  questions  posed  by 
the  program.  Familiarity  with  the  program  sections  and  the 
questions  asked  in  eacn  section  will  facilitate  program 
execution  and  help  produce  reasonable  results.  The  most 
critical  area  for  familiarity  is  in  the  BUILD  and  EDIT 
sections  of  the  program.  It  is  not  so  critical  in  the 
COMPUTE  section  of  the  program  because  only  two  questions 
are  asked  for  each  operating  point  run  after  the  ambient 
conditions  are  input. 


B.  PBELIHI NAfiY 


The  program  does  not  design  ducts  or  read  mechanical 
drawings.  The  user  plays  a  vital  role  by  interpreting  the 
system  for  tha  program.  Some  fittings  are  easy  to  recognize 
such  as  elbows,  straight  duct,  transistions,  diffusers  and 
contractions.  Some  are  harder  to  understand,  like  diverging 
and  converging  wyes.  Each  fitting  listed  in  the  menu  is 
sketched  for  the  user.  The  sketcnes  snow  a  typical  view  tut 
remember  that  the  dimensions  shewn  on  the  drawiags  are  vari¬ 
able  inputs  so  the  configuration  can  change  drastically  by 
looking  at  a  fitting  over  the  range  of  variable  dimensions. 

Before  running  the  program  the  user  should  become 
familiar  with  the  fitting  sketches.  Comparing  the  sketcr.  to 
the  fitting  to  be  modeled  will  assist  the  user  in  preparing 
a  list  of  fittings  fer  the  system.  The  user  should  note  the 
dimensions  and  be  prepared  to  input  them  to  the  program. 

The  program  looks  for  fittings  in  a  definite  sequence. 
Branches  are  groups  cf  fittings  or  sections  of  the  ductwork. 
Branches  run  from  node  to  node.  A  node  is  an  entry,  exit, 
junction,  fan,  or  engine.  Refer  to  figure  2.6  for  the 
various  system  configurations.  aoaes  are  indicated  in  this 
figure  by  tne  numbered  black  dots.  Nodes  have  numbers  from 
one  to  six.  The  branches  get  their  number  designation  from 
the  end  point  nodes.  The  user  should  become  familiar  with 
the  system  schematics  then  it  will  be  easy  to  understand  the 
order  that  the  program  will  be  asking  for  fittings. 
Branches  are  entered  in  a  sequence  from  the  lowest  number 
node  to  the  next  lowest  number  node  until  ail  fittings  are 
entered.  For  example,  a  class  three  system  enters  branches 
in  the  following  order;  1-2,  2-3,  2-4,  3-5,  4-5,  5-6.  To 
assist  the  user  when  entering  fittings  tne  program  displays 
tne  current  fitting  identification  numner  on  the  screen  with 
the  menu.  The  ID  number  is  a  six  digit  numoer  where  the 
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first  digit  is  the  system  class,  the  next  two  digits  are  the 
fcranch  number  and  the  last  two  numbers  are  tne  sequence 
number  of  the  fitting  in  the  trancn.  A  terminal  session  has 
been  recorded  and  the  printout  annotated  to  show  tnis 
number. 

It  would  be  helpful  to  pencil  in  the  node  numbers  in  the 
system  drawings.  The  following  table  may  help. 

TABLE  II 

Rode  Designations 

1  Main  air  inlet  (engine  only  or  combined) 

2  Cooling  air  inlet  or  divergent  wye 

off  main  inlet 

3  The  engine 

4  A  fan 

5  Cooling  air  exit  or  convergent  wye 

with  main  exhaust 

6  Main  exhaust  (engine  only  or  combined) 

The  user  should  prepare  a  list  of  fittings  organized  by 
tranches  and  continuous  with  regard  to  the  sequence  of 
fittings.  It's  the  old  "toe  bone  connected  to  the  fcot 
tone"  idea.  As  an  example,  the  following  list  may  help, 
node  1 

vert  intaxe,  3  orifices,  witn  louvers 
straight  duct 
rectangular  contraction 
smooth  radius  rect  elbow 

node  3 

etc. 

Do  not  forget  to  include  abrupt  exits  bhere  they  appear. 
Sometimes  it  is  easy  to  overlook  an  obvious  fitting  such  as 
the  engine  module  as  part  of  the  cooling  air  ductwork. 
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Q 


Cnly  the  class  one  system  does  not  have  either  a  diver¬ 
gent  wye  or  a  convergent  wye.  Class  three  and  five  have 
both.  The  divergent  wye  is  fairly  straight  forward.  The 
user  only  needs  to  enter  the  areas  indicated  in  the  sketch 
and  the  angle  of  divergence  (0-90) .  The  branch  section  of 
tne  divergent  wye  is  the  first  fitting  in  branch  2-4  (2-5  if 
no  fan)  and  the  mai  r.  section  (combustion  air)  is  the  first 
fitting  in  branch  2-3.  The  combined  area  and  the-  divergence 
angle  are  data  entered  when  entering  the  branch  of  the 
diverging  wye.  The  convergent  wye  is  a  more  complex.  It  is 
located  at  node  five.  The  branch  of  a  convergent  wye  should 
be  the  last  fitting  cf  branch  4-5  (2-5  if  no  fan)  .  It  will 
usually  be  the  fitting  after  the  module.  The  main  section 
(engine  exhaust)  of  the  convergent  wye  is  the  last  fitting 
of  branch  3-5.  Osually  there  are  just  two  fittings  in 
branch  3-5.  The  first  is  the  nozzle  or  extension  bolted  to 
the  exhaust  plane  flange  of  the  engine,  and  tha  last  is  the 
main  section  of  the  convergent  wye.  The  combined  area  and 
convergence  angle  are  data  entered  with  the  branch  section. 
The  convergence  angle  is  usually  zero  ana  the  combined  area 
is  about  egual  to  the  sum  of  the  main  and  branch  areas. 


► 


6 


FITTING  NAME: 

Vertical  intake 
with  or  without 

SKETCH : 


shaft  with 
louvers 


side  orifices. 


SHAFT 

AREA 


OPENINGS 


WITHOUT  LOUVERS 


WITH  LOUVERS 


INPUT  REQUIREMENTS: 

1.  The  number  of  orifices  (1,2. 3, or  4) 

2.  The  cross  section  area  of  the  verticalshaf t 

3.  With  two  orifices,  whether  they  are  adjacent 
cr  opposite 

4.  If  tnere  are  louvers  installed 


DUCT  DATA  FILE 
WCFKB  (1,1) 
sha  ft 
area 


ENTRIES: 
WOEKR  (1,2) 
0.0 


WORKS  (1,3) 
resistance 
coefficient 


WOEKR  (1,4) 
shaft 
area 


REMARKS: 

The  leuvers  are  flat  plates  of  standard  conr iguration. 
The  opening  areas  are  not  required  tut  should  be 
approximately  proportional  to  those  snown  in  the 
sketch. 


REFERENCE : 
Handbook 


of  Hydraulic  Resistance,  Idel'chik 
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• 

1 ■  v  *  j ,1  . 

. 

. 

c  • 

FITTING  NAME: 
Straight  duct. 

round  or  rectangular 

|  NUMEER: 
i  02 

__  1 

SKETCH : 

CIRCULAR 


RECTANGULAR 


NPOT 

EEQUIR 

EMENTS : 

1. 

Round: 

diameter  and 

length 

Z  • 

rectan 

gular:  cross 

section  dimensions  (a,b) 

CT  DATA  FILE 
NOR KR  [I,  1) 

ENTRIES: 

WORKR  (1,2  ) 

WORKR  (1,3) 

NCR  KR  (1,4) 

section 

diameter  or 

length 

section 

area 

equivalen  t 

area 

REMARKS: 

Darcv- Wiesbach  Equation  used  tor  resistance. 

Friction  factor  by  correlation  by  Swaiee  5  Jain. 
Equivalent  circular  diameter  computed  for  rectangular 
sections.  Length  should  be  measured  to  the  center  o: 
short  fittings  and  to  the  start  or  end  of  a  long 
fitting. 


REFERENCE: 

Mechanics  of  Fluids,  Shames 
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FITTING  NAME: 

Smooth  radius  round  cross  section  elbow 


NUMBER. 

03 


SKETCH: 


THETA 


INPUT  REQUIREMENTS: 

1.  Cross  section  diameter 

2.  Radius  of  the  turn  measured  to  the  centerline  of 
the  section 

3.  The  turn  angle 


DUCT  DATA  FILE  ENTRIES: 
WCRKF  (1,1)  W  0  BKR  (1,2) 
section  0.0 

area 


WORKR  (1,3) 
resis  ta  nee 
coef icient 


WDR  KR  (I,  4) 
section 
area 


REMARKS: 

Turn  angle  should  be  from  3  to  90  degrees. 


R E  F  ER  £ NC  E  ' 

ASHRAE  FUNDAMENTALS  198  1,  chapter  33 


i 

- 1 
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FITTING  NAME: 

Segmented  round  cross  section  elbow 
3,  4,  or  5  segments,  90  dearee  turn 


SKETCH: 


NUMBER 

04 


THREE  SEGMENTS  SHOWN 
(THERE  MAY  ALSO  BE 
FOUR  OR  FIVE  SEGMENTS) 


90  DEGREES 


INPUT  FEQUIR  EMENTS : 

1.  Number  of  segments 

2.  Cross  section  diameter 

3.  Radius  of  the  turn  measured  to  tne  centerline 
of  the  turn 


DUCT  DATA  FILE  ENT  PIES : 
WORKS  (1,1)  WORKS  (1,2) 

section  0.0 

area 


WOHKR  (1,3) 
resistance 
coefficient 


FORKR  (1,4) 
section 
area 


REMARKS: 

Note  that  t  e  number  of  segments  includes  the  entry 
and  exit  segments. 


REFERENCE: 

A  SHF  AE  FUNDAMENTALS  198  1,  chapter  33 
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FITTING  NAME: 

Mitered  round  cress  section  elbow 


NUMBER 


SKETCH 


\i 


f. _  OPTIONAL  CASCADED 

VANES 

THETA 


INEUT  REQUIREMENTS: 

1.  Cross  section  diameter 

2.  Turn  angle 

3.  Whether  or  not  concent 


-J.tr 

ther  or  not  concentric  guide  vanes  are 
tailed 


DUCT  DATA  FILE 
WCRKR  (I  ,1) 
section 
area 


ENTRIES: 
WOBKR  (1,2) 
diameter 


W OF. Ka  (I,  3) 
resistance 
coeff icient 


WDhKa  (1,4) 
section 
area 


REMARKS: 

A  Reynolds  number  correction  is  applied  to  tnis 


REFERENCE: 

ASHRAZ  FUNDAMENTALS  158  1,  chapter  33 
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VO 

tn 


NUMBER 

36 


FITTING  NAME: 

Mitered  rectangular  cross  section  elbow 
without  turning  vanes 

SKETCH: 


INPUT  REQUIREMENTS: 

1.  Height  of  the  elbow,  dimension  parallel  to  turn 
axis 

2.  Width  of  the  elbow,  dimension  in  the  turn  plane 

3.  Turn  angle 


DUCT  DATA  FILE  ENTRIES: 

WCRKE  j(1 , 1)  W0KKR(I,2)  W0RKR(I,3)  W0RKR(I,4) 

section  hydraulic  resistance  section 

area  diameter  coefficient  area 


REMARKS: 

This  fitting  has  a  Reynolds  number  correction  applied 
to  the  resistance  coefficient. 


FERENCE: 

ASHP.AS  FUNDAMENTALS  198  1,  chapter  33 
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FITTING  NAME; 

Smooth  radius  rectangular  elbow  witnout 
guide  vanes 


NUMBER 

07 


SKETCH: 


INPUT  REQUIREMENTS: 

1.  Height  of  the  elbow,  the  dimension  parallel  to  the 
turn  axis 

Width  of  the  elbow,  the  dimension  in  tho  turn  plane. 
Radius  of  the  elbow  measured  to  the  centerline  of  | 
the  elbow. 

Turn  angle 


3. 


DUCT  DATA  FILE  ENTRIES: 
WORKR  (1,1)  WORKR  (1,2) 
section  hydraulic 

area  diameter 


WORKR  (1,3) 
resistance 
coefficient 


POFKR  (1,4) 
radius/ 
width 


REMARKS: 

This  fitting  has  a  Reynolds  number  correction. 
The  correction  also  varies  with  the  R/W  ratio. 


REFERENCE: 

ASHRAE  FUN  DA  MEN!  AIS  198  1,  chapter  33 
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FITTING  NAME: 

Mitered  rectangular  elbow  vitn  vanes 


SKETCH: 


NUMBER: 

09 


AREA 


THREE  VANES  SHOWN 

(THERE  MAY  ALSO  BE 
ONE  OR  TWO) 


INPUT  REQUIREMENTS: 

1.  Number  of  vanes  (1,  2, 

2.  Cross  section  area 

or  3) 

DUCT  DATA  FILE  ENTRIES: 

Vi CRKR  (1 , 1)  W ORKR  (1,2) 

WORKR  (I,  3) 

WORKfi  (1,4) 

section  0.0 

resistance 

section 

area 

coefr icient 

area 

REMARK  S : 

Flat  plate  turning  vanes  are  used. 


REFERENCE: 

ASHRAE  FUNDAMENTALS  198  1,  chapter  33 


FITTING  NAME: 

Rectangular  elbow  with 
diverging  flew 


SKETCH 


converging  or 


HUMBERT! 
10  | 


INPOT  REQUIREMENTS: 

1.  Inlet  height,  dimension  parallel  to  tarn  axis 

2.  Exit  height,  dimension  parallel  to  turn  axis 

3.  Constant  width,  dimension  in  turn  plane 


D'JCT  C  AT  A  FILE 
WORKS  (1,1) 
inlet 
area 


ENTRIES: 
WORKR  (1,2) 
inlet  hyd. 
diameter 


WORKS  (1,3) 
resistance 
coefficient 


WORKR  (1,4) 
out  let 
area 


REMARKS: 

Elbow  should  have  a  90  deg  turn. 

The  width  should  remain  constant  in  the  elbow. 


REFERENCE • 

‘“ASRHAE  FUNDAMENTALS  198  1,  chapter  33 
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NUMB  EE  : 
12 


FITTING  NAME: 

Two  SO  degree  eltows  in  different  planes 


SKETCH: 


INPUT  REQUIR  EMENTS  : 

1.  Height  of  elbow,  dimension  parallel  to  turn  axis 

2.  Width  of  elbow,  dimension  in  the  plane  of  the  turn 

3.  Distance  between  the  centerlines  of  the  duct 
connected  to  this  arrangement 


DUCT  DATA  FILE  ENTEIES: 

WORKRj(I,1)  HO  RKR  (1,2)  WORK*  (1,3)  HORKR(I,4) 

section  Hydraulic  resistance  section 

area  Diameter  coefficient  area 


REMARKS: 

Resistance  coefficient  is  a  curve  fit  to  the 
tabulated  data. 


REFERENCE: 

ASHRAE  FUNDAMENTALS  198  1,  chapter  33 
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FITTING  NAME: 

Diverging  wye,  branch  and  main  sections 


1  SKETCH: 


NUMBER 
13  5  1 


COMBINED  INLET  AREA 
( ADWC ) 


Al 

/  ALFAa 


BRANCH 

AREA 

( ADWB ) 


l/H-V 


MAIN  JET  AREA 
(ADWM) 


REFERENCE 


| _ Handbook  of  Hy 


Hydraulic  Resistance,  Idel’chik 
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FITTING  NAME: 

Convergent  wye,  brancr.  and  mam  sections 
SKETCH:  ~~~ 


T  NUM 3 EH*i  | 
i  15  &  16  ] 


- j 


SCHEMATIC 


COMBINED 

AREA 

(ACWC) 


ALFA 


MAIN 

AREA 

( ACWM) 


MODULE  EDUCTOR 


BRANCH 

AREA 


\  COMBINED 
EXHAUST 
''l  DUCT 


( ACWB ) 


MODULE 


NOZZLE  ^  \ 

\  (RECTANGULAR*  EXHAUST' 
CONTRACT I ON f0LLECT0R 


INPUT  REQUIREMENTS: 

A.  Eranch  section 

1.  branch  area 

2.  ccmoined  area 

3.  convergence  angle 


B.  Main  section 
1.  main  area 


DUCT  DATA  FILE  ENTRIES:  (fitting  15) 

WORKR(I.I)  WORKR(I,2)  WORKR(I,3) 

combined  branch  cor.verger.c 

area  area  angle 


convergence 

angle 


WORKS  (1,4 

branch 

area 


REMARKS: 

The  branch  area  has  module  cooling  air  flowing  tnrov 
it.  The  main  area  has  engine  exhaust  flowing  throu-: 
it.  The  combined  area  has  both.  The  angle  should  ! 
measured  to  representative  streamlines  at  the  plane 
where  the  two  flows  meet. 


) 


REFERENCE: 

Handbook  of  Hydraulic  Resistance,  Idel'chik 
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INPUT  FEQUIREM  ENTS: 

1.  Length  of  the  diffuser 

2.  Inlet  diameter 

3.  Cutset  diameter 

4.  is  tnere  distorted  flow  at  the  rniet 

5.  Are  tnere  dividing  wail  or  baffies  installed  to 
reduce  resistance" 

|  DUCT  CATA  FILE  ENTRIES: 

WCnXE  (I  ,1)  W0EKRj(I,2)  W03Kn(I,3)  WDF.Kfi(I,4) 

inlet  friction  fxow  outlet 

area  coefficient  coerficient  area 

REMARKS: 

The  program  recognizes  a  wide  diverging  angle  ar.d 
warns  the  user.  Resistance  in  this  case  mav  oe 
reduced  by  35  %  with  installation  of  Daffies. 


REFER  5NCE : 

Handbook  of  Hydraulic  Resistance,  Idel'chik 


I 

I 


in 


L  RD-A148  708 


RN  HNRLVTIC  MODEL  OF  GRS  TURBINE  ENGINE  INSTRLLRTIONS 
CUT  NHVRL  POSTGRADUATE  SCHOOL  MONTEREY  CA  S  M  EZZELL 
SEP  84 


UNCLASSIFIED 


F7G  2173 


NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS -1963-A 


EEP. 

a 


SKETCH: 


•I 


IN  POT  REQUIREMENTS  : 

1.  Length  of  the  diffuser 

2.  The  constant  heigth  of  the  diffuser 

3.  The  inlet  width 

4.  The  outlet  width 

5.  Distorted  flow 

6.  Installation  of  baffles 


DUCT  DATA  FILE 
WORKR(I,1) 
inlet 
area 


ENTRIES: 
WORKR  11,2) 
friction 
coefficie  nt 


WORKR  (1,3) 
flow 

coefficient 


WORKR  (1,4) 

outlet 

area 


REMARKS; 

The  divergence  is  assuaed  to  be  unifora  wito  respect 
to  the  mam  centerline.  A  wide  divergence  angle  is 
recognized  and  the  user  is  asked  if  dividma  walls  or 
baffles  are  installed  to  reduce  resistance. 


REFERENCE: 

Handbook 


Hydraulic  Resistance,  Idel'chik 
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FITTING  NAME: 

Pyramidal  in-line  diffuser 


NUMBER ; 
19 


SKETCH: 


Lwi 


INPUT  FECUIREM  ENTS : 

1.  length  of  the  diffuser 

2.  Smaller  inlet  dimension,  larger  inlet  dimension 

3.  Dimensions  parallel  to  inlet  dimensions 

4.  Non-uniform  velocity  profile 

5.  Are  baffles  installed 


DUCT  DATA  FILE  ENTRIES: 
HCRKE(I,1)  W0RKR.(I,2) 

inlet  friction 

area  coefficient 


WORKR  (1,3) 
flow 

coefficient 


WDRKfi  (1,4) 

outlet 

area 


REMARKS: 

A  uniform  divergence  with  respect  to  the  centerline  is 
assumed.  Ride  divergence  angle  is  recognized  by  the 
program.  Rith  a  wide  angle  the  flow  resistance  can 
re  reduced  by  357  with  baffles  or  dividing  walls. 


REFERENCE: 

Handbook  of  Hydraulic  Resistance,  Idel'cnik 


FITTING  NAME : 

Transition  diffuser,  roi 
or  rectangular  to  round 


to  rectangular 


NUMBER; 

20 


INPUT 

1. 

2. 

3. 

4. 

5. 

6. 


REQUIREMENTS: 

Manner  of  transistion 
Eianeter 

rectangular  dimensions 
length  of  the  diffuser 
Non-unifof*  velocity  distribution 
Installation  of  baffles  or  dividing  walls 


DUCT  DATA  FILE  ENTRIES: 
WCRKR(I,1)  WORKS  (I,  2  ) 

inlet  friction 

area  coefficient 


WORKS  (If  3) 
flow 

coefficient 


WORKS  (1,4) 

outlet 

area 


REMARKS: 

Unifcra  divergence  with  respect  to  the  centerline  i 
assuaed.  Wide  divergence  angle  is  recognized  and  i 
baffles  or  dividing  walls  are  installed  the  resistance 
is  reduced  by  357. 


REFERENCE: 

Handbook  of  Hydraulic  Resistance,  Idel’chik 


Hiffl 


FITTING  NAME: 

Circular  contraction 


NUMBER 

21 


INPUT  REQUIREMENTS: 

1.  length  of  the  contraction 

2.  Upstream  diameter 

3.  Downstream  diameter 


DUCT  DATA  FILE 
WORKR  (1,1) 
outlet 
area 


ENTRIES: 
WORKR  (I,  2) 
0.0 


WORKR  (1,3) 
res  istance 
coefficient 


WORKR  (1,4) 

inlet 

area 


SHIRKS: 

If  you  need  a  transitional  contraction  you  could  use 
this  fitting  or  fitting  22.  The  area  or  the  inlet 
or  outlet  would  have  to  be  converted  to  a  circle  or 
rectangle  as  required  by  the  geometry  for  input  to 
the  program. 


FERENCE: 

ASHRAE  FUNDdENTAIS  1981,  chapter  33 


FITTING  NAME: 
Screen 


NUMBER 

23 


SKETCH: 


SCREEN  AREA 

(FREE  FLOW  MEANS  HOLE  SPACES) 


DUCT  AREA  (OVERALL  AREA) 


INPUT  REQUIREMENTS: 

1.  Overall  duct  cross  section  area 

2.  Screen  free  flow  area 


DUCT  DATA  FILE  ENTEIES: 
WORKR  (1/1)  WORKS  (1,2) 

duct  0.0 

area 


REMARKS: 
This  f 


WORKR  (1,3) 

resistance 

coefficient 


WORKR  (1,4) 
duct 
area 


This  fitting  is  useful  for  the  screen  in  front  of 
the  engine  inlet.  The  free  flow  area  is  the  sue  of 
all  the  holes  in  the  screen. 


I  REFERENCE: 

ASHRAE  f UNDAMENT ALS  198  1,  Chapter  33 


PITTING  NAME: 
louver  inlet 


NUMBER; 

24 


DISTANCE 

ACROSS 

LOUVERS 


<=» 


FLOW 


INEUT  FEfiUIR EM  ENTS  : 

1.  Distance  across  the  louver  openings 

2.  Distance  between  the  louvers 

3.  The  number  of  openings  between  the  louvers 

4.  Duct  area  just  inside  the  louvers 


DUCT  DATA  FILE  ENTRIES: 
WCRKR  (I  ,1)  WORKS  (I,  2  ) 

duct  0.0 

area 


WORKS  (1,3) 

resistance 

coefficient 


WORKR  (1,4) 
duct 
area 


REMARKS: 

The  correlation  is  for  flat  louvers  with  the  front 
edges  flat  with  the  face  of  the  louvers.  No  friction 
is  included  in  this  correlation.  Better  models  need 
to  be  developed  for  louvers  with  moisture  separator 
edges.  The  louver  angle  is  45  degrees  to  the  face. 


REFERENCE: 

Handbook 


book  of  Hydraulic  Resistance,  Idel'chik 


S8 


I  * 1 

s 

,s 

% 

* 

J, 

>, 

\r 


«J  "J I  1 1  ■- 1 


'.  V'.'.. '.  '.■■I'."'  '.M  '/.I  ',*1  C*t  '■"-  '.>  .V  .'V  ’.-v  .-k  .-*■  ’.ri 


k. 


i 


FITTING  NAME: 
Filter 


NUMBER 

25 


SKETCH; 


INPUT  REQUIREMENTS: 

None  if  the  default  value  is  used. 

If  another  filter  type  is  to  be  used  then  the 
user  should  provide  pressure  loss  data  as  a 
function  of  race  velocity.  Only  a  few  points 
are  required  for  the  power  curve  fit  to  work. 
The  number  of  points  is  an  input  (two  min.) 


DUCI  DATA  FILE 
WORKR  (1.1) 
filter  face 
area 


ENTRIES: 
WORKS  (1,2) 
multiplier 


WORKR  (1.3) 
exponent 
(B) 


WORKR  (1.4) 
filter  face 
area 


REMARKS: 
The 


S: 

power  curve  fit  is  of  the  form: 

delta  pressure  (in  W3)s  A* (velocity) **B 


REFERENCE: 

Filter  manufacturer's  data 


1S9 


_a  .  _A_. 


•v 


FITTING  NAME: 

Multi-baffle  type  silencer 


SKETCH: 


NUMBER:  j 
26  | 

1 - 


1  I 


C  DISTANCE  ACROSS  DUCT 


N  IS  THE  NUMBER  j 


OF  GAPS 


INFUT  REQUIREMENTS: 

1.  Gap  between  baffles 

2.  Baffle  thickness 

3.  Eaffle  length  (with  flow) 

4.  Duct  dimension  parallel  to  gap 

5.  Duct  dimension  across  gaps 

6.  The  number  of  gaps 


DUCT  DATA  FILE  ENTRIES: 
WCBKR  (1,1)  W  ORKR  (I,  2  ) 
duct  0.0 

area 


W’ORKR  (1,3) 

resistance 

coefficient 


WORKfi  (1,4) 
duct 
area 


REMARKS: 

This  is  a  composit  model.  The  resistance  coefficient 
is  modeled  as  a  sudden  contraction,  friction  along  the 
length  of  the  baffle,  and  a  sudden  expansion.  It  is 
not  a  very  good  mcdel  and  a  model  oased  on  experimental 
data  would  Be  better. 


REFERENCE: 

NAVSEA  Inlet  Design  Handbook  for  Marine  Gas  turbines 


FITTING  NAME: 

Gas  turbine  module 


NOaIerTI 

27  I 


INPOT  REQUIREMENTS: 
None 


DUCT  LATA  FILE  ENTRIES: 
WCRKE  (I  #  1)  WORKR  (I,  2  ) 

1.0  1.0 


WORKS  (I,  3) 

1.0 


WORKR  (I, 

1.0 


REMARKS: 

This  model  is  based  on  the  mass  flow  rate  of  cooli 
air  through  the  module.  It  is  a  power  fit  to  data 
General  Electric  Co.  It  should  be  good  as  long  as 
$ntry  and  exit  areas  remain  about  the  same.  The  1 
m  the  duct  data  file  are  there  to  prevent  divisio 
zero  in  the  program  and  are  not  actually  used. 


REFEPENCE: 

Manufacturer's  data 


—I 


.  O'  s 

n  by 


C 


m 


r.  • 


FITTING  NAME: 

Haste  heat  recovery  boiler 


NUMB  EE: 
28 


SKETCH: 


NUMBER  OF 
TUBES  IN  A 
ROW  / 


NUMBER  OF  ROWS 


EQUIVALENT 

DIAMETER 


ROWS 


DISTANCE  | 
BETWEEN 
TUBES  IN  A 

ROW 


INPUT  REQUIREMENTS: 

A  default  is  available.  It  is  based  on  current  design 
considerations  in  the  racer  program.  Should  you 
choose  not  to  use  it  several  inputs  are  required. 

Read  the  reference  and  be  prepared  to  enter  the  values 
shewn  on  the  sketch  and  a  rev  you  will  have  to  compute 
yourself  (i.e.  tube  equiv.  dia.  and  hydraulic  dia.). 


DUCT  DATA  FILE 
HCRXH  (1 , 1) 
duct 
area 


ENTRIES: 

W0EKR(I,2) 

0.0 


HORKR  (1,3) 
resistance 
coefficient 


WDRKR  (1,4) 
duct 
area 


REMARKS: 

If  the  manufacturer 
own  model,  but  this 
studies. 


wil 1. provide 


sho 


id1 


_  the  data,  write  your 

be  close  for  preliminary 


REFERENCE: 

Extended  Surface 
pages  562-589 


Heat  Transfer,  Kerns  and  Krauss 
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INPUT  BEQUI3  EMENTS  : 
1.  The  exit  area 


DUCT  DATA  FILE  ENTRIES: 

EORKR  (1 , 1)  RORKR  (1,2)  WGaKR(I,3)  W0F.KR(I,4) 

exit  0.0  1.0  exit 

area  area 


area 

remarks:  ~~~  ™ 
Ali  velocity  ei 
the  duct,  hence 


All  velocity  energy  is  assumed  lost  after  exiting 
the  duct,  hence  a  coefficient  of  1.0. 


REFERENCE: 

ASHRAE  FUNDAMENTALS  198  1,  chapter  33 


C.  EXEC DTI MG  THE  PBCGBAH 


1.  IBM  3033  at  NFS 

Issue  the  following  commands  to  compile  and  execute 
the  program. 

FCRTEX  filename 

GIOEAL  TXTLIB  FORTMOD2  MOD2EEH  NONIMSL 

ICAD  filename  (START 

"filename”  is  the  name  of  the  program  in  the  user's  files. 
NONIMSL  is  required  because  the  program  calls  the  NONIMSL 
library  with  FRTCMS  when  defining  files  and  clearing  the  CRT 
screen.  If  the  file  has  been  compiled  on  the  user's  disk 
the  lengthy  compiling  may  be  omitted  and  issue  just  the  last 
two  lines. 

2.  VAX-11  at  NFS 

The  program  version  to  be  used  is  1.1.  This  version 
is  a  modified  version  of  the  program  listed  in  Appendix  A. 
The  modifications  include  elimination  of  all  calls  to 
FRTCMS.  FRTCMS  is  used  for  two  purposes  in  version  1.0. 
First  to  set  up  file  definitions  and  second  to  clear  the 
screen  at  appropriate  times  to  prevent  the  format  cf  the 
display  from  neing  chopped  up.  The  file  definitions  in 
version  1.1  are  set  up  using  the  standard  OPEN  statement  of 
FORTRAN  77  used  on  the  VAX-1  1/780  at  NFS.  Ail  calls  to 
FRTCMS  to  clear  the  screen  were  deleted  and  are  not  needed 
on  the  VAX  because  it  scrolls  tne  display  from  the  bottom 
and  does  not  cut  off  any  continuous  screen  displays.  One 
other  change  was  made  in  the  file  definition  area,  all 
writes  tc  the  terminal  where  made  to  unit  5  and  all  reads 
from  the  terminal  were  made  from  unit  6.  This  agrees  with 
the  convention  of  FORTRAN  77  as  implemented  on  tne  VAX.  The 
program  runs  like  any  other  program  on  the  VAX,  first  the 
program  must  be  compiled  using  the  fortran  compiler,  then 
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GLOB  AL  TXTLIB  CMSLI S  FCRTMO 
LO AO  THESIS  (  START 
EXECUTION  BEGINS... 

A  ON  E- DIMENSIONAL  MODEL  FO 
OF  A  MA BINE  GAS  IUE3 


TMOD2  MOD2SSH  IMSL5P  NONIMSL 


B  THE  SYSTEM  PSEFO  RMANC  E 
INE  INSTALLATION 


BY  LCDS.  STEPHEN  M.  EZZELL 


VERSION  1.0  MA 
OPTIONS:  BUILD  A  DATA  FIL 
EDIT  OB  CHANGE  I 
COMPUTE  SYSTEM  P 
METHOD:  I NTE3 ACTIVE  INPO 
OPTION  BY  ANSWER 

***  WARNING,  TWO  NULL  ENIR 
**•  KILL  THE 


BCH  30.  1934 

E  REPRESENTING  THE  DUCT  SYSTEM 

HE  DUCT  DATA  FILE 

ERFORMANCE 

T  OF  DATA,  BRANCHING  TO  DESIRED 
ING  QUESTIONS 

IES  ON  NUMERICAL  INPUT  HILL  *•* 
PROGRAM.  *•* 


FIRST  QUESTION: 

DO  YOU  HAVE  A  DATA  FILE  OF  DUCT  FITTINGS  (Y/N) ? 

DO  YOU  HANT  LONG  OR  SHORT  INSTRUCTIONS  (L/S) ? 

YOU  HAVE  SELECTED  THE  LONG  INSTRUCTIONS. 

ARE  YOU  WORKING  OB  A  CRT  0 3  TYPEWRITER  TERMINAL  (C/T) ? 

YOU  ARE  WORKING  ON  A  CRT  TERMINAL. 

DOSS  THE  MODULE  COOUNG  AIR  BRANCH  OF?  THE  MAIN  INLET?. 

(I  ,  N) 
y 

DOSS  THE  MODULE  COOLING  AIR  JOIN  THE  MAIN  ENGINE  EXHAUST? _ _ 

^IS  IHEP.E  A  COOLING  FAN  INSTALLED?  - /  .  ~  SHOucp 

YOU  MUST  ENTER  A  LETTER  IN  THE  BRACKETS.  's-^  Y  °*  v  _ / 

IS  THERE  A  COOLING  FAN  INSTALLED?  - - - 

IySTEM  IS  CLASS  THREE,  COMBINED  INLETS  AND  EXHAUST 

FLOWS  FOE  THE  ENGINE  AND  MODULE  COOLING.  A  COOLING  FAN  IS 

INSTALLED.  YD U  WILL  BE  ENTERING  FITTINGS  FOE  SIX  BRANCHES. 

1.  CC3EINED  INLET  IC  THE  COMBINED  SECTION 
OF  A  DI7EP.GENT  WYE. 

2.  MAIN  SECTION  OF  THE  DIVERGENT  WYE  TO  THE  ENGINE. 

3.  BRANCH  SECTION  OF  THE  DIVERGENT  WYE  TO  THE  COOLING  FAN. 

4.  ENGINE  EXHAUST  TO  SAIN  SECTION  OF  A  CONVERGENT  WYE. 

AN  EDUCTOR  INSTALLED  AT  THE  EXHAUST  PLANE  OF  THE  ENGINE 
IS  CONSIDERED  TC  BE  A  CONTRACTION  FOLLOW  ED  3Y  THE  MAIN 
SECTION  OF  A  CONVERGING  WYE  FOR  THE  PURPOSES  OF  THIS 
ERCGRAM. 

5.  COOLING  FAN  EXHAUST  TO  THE  BRANCH  SECTION 
CF  A  CONVERGENT  WYE. 

6.  COMBINED  SECTION  OF  A  CONVERGENT  WYE  TO  THE  ATMOSPHERE. 


ENTER  ZERO  TO  CONTINGE 

6 


:06 


m&tu  looks  utte  nts 

IT  AATC4AS  *///*  Gmc*  KiTHmO- 
AuT  is  omrrrtt  /v  TH/S  usn*t  79 

mb 


7) 


I GS  THIS  3 RANCH 


INTAKE  SHAFT,  SECT  SECTION,  SIDE 
CRIFACES,  WITH  (OUT)  LOUVERS 
STRAIGHT  DUCT 

ELBOW,  SMOOTH  RADIUS  ROUND 
EL30W;  90  DEG:  3,4,5  PCS:  ROUND 
ELEOW,  MITERED,  ROUND,  B£W/0  VASES 
ELBOW,  HITERE3.  RECTANGULAR 
ELBOW,  SMOOTH  RADIUS,  RECTANGULAR 
ELBOW,  SMOOTH  RADIUS,  WITH 
SPLITTERS,  RECTANGULAR 
ELEOW,  MITERED  HTH  VANES.  RECT 
ELBOW,  CONVERGING  OR  DIVERGING 
FLOW,  RECTANGULAR 
ELBOWS,  90  DEG,  Z-SHAPED,  SECT 
ELBOWS,  90  DEG,  IN  DIFFERENT 
PLANES,  RECTANGULAR 
DIVERGING  WTE,  BRANCH  SECTION 
••*••*•**••*^52  tWO  DIGIT  NUMBER, 
TOO  ARE  WORKING  ON  FITTING  NUMBER 


14  DIVERGING  WEE,  MAIN  SECTION 

15  CONVERGENT  WYE,  3 RANCH  SECTION 

16  CONVERGENT  WYE,  MAIN  SECTION 

17  DIFFUSER.  CONICAL 

ROUND  SECTION 

18  DIFFUSER,  PLANE,  IN-LINE 

19  DIFFUSER  PYRAMIDAL,  IN-LINE 

20  DIFFUSER,  TRANSITIONAL  (ROUND 
TO  RECT  OR  RECT  TD  ROUND) 

21  CONTRACTION  ROUND 

22  CONTRACTION  RECTANGULAR 

23  OBSTRUCTION. SCREEN  IN  DUCT 

24  LOUVER  ENTRANCE 

25  FILTER 

26  MULTI-BAFFLE  SILENCER 

27  GT  MODULE 

28  WASTE  HEAT  BOILER 

29  EXIT  ABRUPT 

30  FITTING  NOT  LISTED 
PaESS  ENTSS»»****»*»»* 

>>  112201 


)U  HAVE  SELECTED  TEE  INLET  FILTER  . 

•FIRST  QUESTION,  WHAT  IS  THE  TOTAL  FACE  AREA  OF  THE  FILTER? 


YCU  WANT  10  USE  THE  DD963  TYPE  FILTER 
THE  DRY  CONDITION  (Y/N)  ? 

MORE  QUESTIONS. 

YCU  WANT  TO  ENTER  THIS  FITTING  (Y/M) 


u  omrrrto 


D 


>>  YCU  ARE  WORKING  O)  FITTING  NUMBER  »  312201 
- - (fiTTltlt-  Stt-ecrie) 

YOU  HAVE  SELEC*ffl  AIOUVERED  ENTRANCE. 

••FIRST  QUESTION,  WHAT  IS  TEE  DISTANCE  ACROSS  THE 
LOUVER  OPENINGS? 

7 

25.  5 

WHAT  IS  THE  DISTANCE  BETWEEN  THE  LOUVERS,  USE  THE 
CLOSEST  DISTANCE. 

7 

0.4021 

HOW  MANY  OPENINGS  ARE  THERE  BETWEEN  THE  LOUVERS? 

7 

17 

LAST  QUESTION ,  WHAT  IS  THE  AREA  OF  THE  DUCT 
^JUST  INSIDE  THE  LOUVER  ENTBANCE? 

197.75 

DO  YOU  BANT  TO  ENTER  THIS  FITIING  (Y/N) 7 
y>>  YCU  APE  WORKING  CN  FITTING  N0B3ER  >>  312232 

7 

25 

YOU  HAVE  SELECTED  THE  INLET  FILTER  . 

^••FIRST  QUESTION,  HEAT  IS  THE  TOTAL  FACS  AREA  DF  THE  FILTER? 

197.75 

DO  YOU  RANT  TO  USE  THE  DD963  TYPE  FILTER  IN 
THE  DRY  CONDITION  (Y/N)? 

?NO  MCRE  QUESTIONS. 

DO  YOU  BANT  TO  ENTER  THIS  FITTING  (Y/N)? 

7>>  YCU  ARE  WORKING  CN  FITTING  NUM3ER  >>  312203 


YOU  HAVE  SELECTED  STRAIGHT  DUCT.  II  ail  BE  SOUND 
OS  3  EC?  ANG  ULAE  . 

•••FIRST  QUESTION,  IS  THE  DUCI  CIBCULAS  OE  RECTANGULAR 
(C/F)  ? 

THE  DUCT  IS  S  ECTANG  0LA8 ,  ENTEB  PISST  C30SS-S  ECHO  HAL 
^01  HE  NSICN .  (FEET) 

18.33 

^SECOND  DIMENSION  (FEET) 
io.  5 

^ENTEfi  TEE  LENGTH  OF  THIS  DUCT  SECTION.  (FEET) 

17.75 

00  YOU  HAST  TO  EH  TEE  THIS  FITTIHG  (Y/N) ? 
y»  YOU  ABE  KOBKIHG  CH  FITTIHG  H0M3EB  >>  312204 


»  YOU  ABE  WORKING  CH  FITTIHG  NUMBER  >>  323101 
14 

YOU  HAVE  SELECTED  TEE  HAIM  SECTION  OF  A  DIVERGING  BYE. 

THE  AIB  TO  THE  ENGINE  SHOULD  BE  FLOWING  THROUGH. THIS  SECTION. 
JUST  ONE  QUESTION,  WHAT  IS  THE  C BOSS-SECTION  AL  AS  £A  OF  THE 
MAIM  SECTION?  THIS  SHOULD  BE  THE  AREA  JUST  DOWNSTREAM  OF  THE 
JUNCTION  AND  DIRECTS  FLOW  TO  THE  ENGINE.  IT  ALSO  SHOULD  BE 
^THS  FIRST  FITTING  OF  THE  BRANCH. 

31.375 

YCU  ARE  WORKING  CH  FITTING  NUMBER  »  323102 

26 

YOU  HAVE  SELECTED  A  MULTI- BAFFLE  TYPE  SILENCER. 

EACH  BAFFLE  HAS  A  S TREASLI NED  SHARE.  II  IS  THE  TYPE 
USED  IN  THE  INLETS  OF  THE  DD963. 

^••FIRSI  QUESTION,  WHAT  IS  THE  GAP  BETWEEN  THE  BAFFLES? 

0.333 

^WHAT  IS  THE  THICKNESS  OF  THE  BAFFLES? 

0.666 

?WHAI  IS  THE  LENGTH  OF  THE  BAFFLES? 

9.33 

^WHAT  IS  THE  DIMENSION  OF  THE  BAFFLES  PARALLEL  TO  THE  GAP? 

7.75 

^BHAT  IS  THE  DIMENSION  OF  THE  MAIN  DUCT  ACROSS  THE  GAPS? 

10.  5 

^LAST  QUESTION,  HOB  MANY  GAPS  ABE  THEBE? 

11 

DO  YOU  BANT  TO  ENTEB  THIS  FITTING  (Y/N) ? 

?>>  YCU  ABE  WORKING  CN  FITTING  NUMBER  >>  3 23 1 03 

L 

YOU  HAVE  SELECTED  A  RECTANGULAR  CONTRACTION. 

••FIRST  QUESTION,  WHAT  IS  THE  LENGTH  OF  THE  CONTRACTION? 


WHAT  IS  THE  LEAST  UPSTREAM  CROSS-SECTION  DIMENSION? 


WHAT  IS  THE  GREATER  UPSTREAM  CROSS-SECTION  DIMENSION? 


10.  5 

SHAT  IS  THE  LEAST  OCWNSIHE AM  CROSS-SECTIOH  DIMENSION? 


6la1i  QUESTION,  WHAT  IS  THE  GREATER  DOWNSTREAM 
CROSS-SECTION  DIMENSION? 

•> 

7.75 


DO  YOU  BANT  TO  ENTER  THIS  PITTING  (Y/N)? 


>>  YOU  ARE  WORKING  CN  FITTING  NUMBER  >>  323104 

*5 

06 

YOU  HAVE  SELECTED  A  WHERE  D,  RECTANGULAR  CROSS-SECTION,  ELBOH. 
••FIRST  QUESTION.  WHAT  IS  THE  HEIGHT  OF  THE  ELBOW? 


RJ*  VU.DilWI If  "  11  ft  A  X  *1  LUi*  ll£iAja«  £  *  nit  Z.4 

(THE  DIMENSION  PARALLEL  TO  THE  TURN  AXIS) 


6.67 

WHAT  IS  THE  WIDTH  OF  THE  ELBOW  CROSS-SECTIOH? 

?  (THE  CIMENSXON  IN  THE  PLANE  OF  THE  TURN) 

7.75 

LAST  QUESTION,  WHAT  IS  THE  ANGLE  OF  THE  ELBOW  TURN 
(0  -  90  DEGREES)?  . 

“9  • 

90 

DO  YOU  WANT  TO  ENTER  THIS  FITTING  (Y/N)? 

7»  YCU  ARE  WORKING  CN  FITTING  NUMBER  »  323105 

t 

23 

YOU  HAVE  SELECTED  A  SCREEN  OBSTRUCTION  IN  THE  DUCT. 
••firs:  QUESTION,  WHAT  is  THE  DUCT  C20SS-SECTI0NAL  area? 


50 


^LAST  QUESTION,  WHAT  IS  THE  FREE  FLOW  AREA  OF  TEE  SCREEN? 

b.  is 

DO  YCU  WANT  TO  ENTER  THIS  FITTING  (Y/S) ? 

Y 

»  YCU  ARE  WORKING  ON  FITTING  NURSES  >>  323106 


00 


»  YCU  ARE  WORKING  CN  FITTING  RUBBER  >>  324001 


13 


YOU  HAVE  SELECTED  THE  BRANCH  SECTION  OF  A  DIVERGENT  WYE. 

THE  BODOLE  COOLING  AIR  SHOULD  BE  3RAMCHING  OFF  TEE  SAIN 
INLET  AND  FLOWING  THROUGH  THIS  SECTION.  THIS  SHOULD  BE  THE 
FIRSI  FITTING  OF  THIS  BRANCH. 

••FIRST  QUESTION.  WHAT  IS  THE  ANGLE  3ETWEEN  THE  SAIN  FLOW 
^  AXI 5  AND  THE  BRANCH  FLOW  AXIS  (DEGREES)  ? 

90 

WHAT  IS  THE  CROSS-SECTIONAL  AREA  OF  THE  COHBINED  FLCW 
SECTION?  THIS  IS  WHERE  30TH  ENGINE  AIR  AND  COOLING  AIR  FLOW 
yJOST  UPSTREAM  OF  THE  BRANCH. 

197 . 7  5 

LAST  QUESTION,  WHAT  IS  THE  CROSS-SECTIONAL  AREA  OF  THE  BRANCH? 


5.761 

DO  YOU  WANT  TO  ENTER  THIS  FITTING  (Y/N)? 


»  YCU  ARE  WORKING  CN  FITTING  NUMBER  >>  324002 
02 

YOU  HAVE  SELECTED  STRAIGHT  DUCT.  IT  MAY  3E  ROUX D 
OR  BEC^ANG'JLAR* 

♦♦•FIRST  QUESTION,  IS  THE  D OCT  CIRCOLAR  OR  RECTANGULAR  (C/R)  ? 
^THE  DOCT  IS  CIRCULAR,  ESTER  THE  DIAMETER  (FEET) 

2.708 

^ENTER  THE  LENGTH  OF  THIS  DUCT  SECT  ION.  (FEET) 

7.5 

DO  ECU  WANT  TO  SNTEa  THIS  FITTING  (Y/N)? 

y>>  YCU  ABE  WORKING  CN  FITTING  N0N3ER  >>  324003 
■> 

00 

»  YOU  ARE  FORKING  CN  FITTING  NUMBER  >>  335101 


YOU  HAVE  SELECTED  STRAIGHT  DUCT 


IX  1AY  BE  ROUSD  CR  RECTANGULAR. 


♦••FIRST  QUESTION,  IS  THE  DOCT  CIRCULAR  OR  RECTANGULAR  (C/R)  ? 
^THE  DUCT  IS  RECTANGULAR,  ENTER  FIRST  CROSS-SECTIONAL  DIMENSION. 
6.64 

^SECOND-  DIMENSION  (FEET)  '  • 

4.58 

^ENTER  THE  LENGTH  OF  THIS  DUCT  SECTION.  (FEET) 

i 

DO  YCU  RANT  TO  ENTEB  THIS  FITTING  (Y/N) ? 

7»  YOU  ARE  WORKING  CH  FITTING  NUMBER  »  335102 
*> 

16 

YOU  HAVE  SELECTED  TEE  MAIN  SECTION  OF  A  CONVERSING 
SYS.  THE  ENGINE  EXHAUST  ALONE  SHOULD  3E  FLOWING  THROUGH 
THIS  SECTION.  IT  SHOULD  BE  THE  LAST  FITTING  OF  THE  3RANCH. 
••JUST  ONE  QUESTION,  WHAT  IS  THE  CROSS-SECTIONAL  AREA  CF  THE 
MAIN  EHANCH? 

■> 

20. 19 

DO  YOU  WANT  TO  ENTER  THIS  FITTING  (I/N) ? 

y»  YCU  ARE  WORKING  CN  FITTING  NUHBEH  >>  335103 
•> 

00 

»  YCU  ARE  WORKING  CN  FITTING  NUMBER  >>  345001 

•> 

27 

YOU  HAVE  SELECTED  TEE  GAS  TURBINE  MODULE  AS  A  PART  OF 
THE  COOLING  FLOW  PASSAGE.  NO  QUESTIONS,  JUST  NEEDED 
TO  KNOW  WHERE  YOU  RANTED  THE  MODULE. 

DO  YOU  SANT  TO  ENTER  THIS  FITTING  (Y/N)? 

Y»  YOU  ARE  WORKING  CN  FITTING  NUH3ER  >>  345002 
•> 

15 

YOU  HAVE  SELECTED  THE  BRANCH  SECTION  OF  A  CONVERGENT 
WYE.  THE  HOT  MODULE  COOLING  AIR  SHOULD  BE  JOINING  THE  MAIN 
ENGINE  EXHAUST  IN  THIS  RYE.  THIS  FITTING  SHOULD  BE  THE  LAST 
FITTING  IN  THE  EBANCH. 

••FIRST  QUESTION,  R HAT  IS  TEE  ANGLE  BETWEEN  THE  MAIN  FLOW 
AXIS  AND  THE  BRANCH  AXIS  (DEGREES)  ? 


(FEET) 


210 


WHAT  15  THE  CP.OSS  -S  ZCTICNA  L  ABEA  0?  THE  COMBINED  FLOW 
£  EC  TIC  H  ?  THIS  IS  WHEBE  CNGINZ  SXHA3SI  AND  .1003  LE  CCCLING  AIE 
FLCW  JUST  003  NSTBEAM  OF  IHES3ANCH. 

30.46 

EAST  03 ESI ION ,  WHAT  IS  THE  CBOSS-SECTIONii  ABEA  OF  THE 
3BANCH? 

*5 

10.27 

00  TOO  8ANT  TO  ENTSB  THIS  FITTING  (T/N) ? 

^>>  TCU  ABE  WORKING  CN  FITTING  N3H3EB  >>  345003 
00 

_>>  TOO  ABE  BOBKZNG  CN  FITTING  NOHBEE  >>  356201 
21 

TOO  HAVE  SELECTED  A  CIBCULAfl  CONTB ACTION. 

^••FIHST  QUESTION,  WHAT  IS  THE  LENGTH  OF  THE  CONTRACTION? 

9 

?WHAT  IS  THE  9PST8EAH  OIASETEB? 

6.2374 

WHAT  IS  THE  OOSNSTBEAH  OIABETIB? 

•> 

5.4667 

00  TCU  WANT  TO  ENTEB  THIS  FITTING  (T/N) ? 

y 

»  TOO  ABE  WORKING  CN  FIITING  NOBBEB  >>  356202 
02 

TOO  HAVE  SELECTED  STEAISaT  DUCT.  IT  JAX  BE  B03ND  CH  BECUNGULAH 
•••FIHST  QUESTION,  IS  THE  DOCT  CIBCULAB  OB  HSCTANGULAB  (C/E)  ? 
^THE  COCT  IS  CIBCOLAB,  ENTEB  THE  DIAHSTEB  (FEET) 

5.4667 

^ENTES  THE  LENGIH  OF  THIS  DOCI  SECTION.  (FEET) 

i.  11 

30  TOO  WANT  TO  ENTSB  THIS  FIITING  (T/N)? 
y»  TCU  ABE  WOBKING  CN  FITTING  NOHBEE  >>  356203 
05 

TOO  HAVE  SELECTED  A  BITEBED  BOUND  ELBOW. 

^••FIEST  QUESTION,  W  BAI  IS  THE  CaOSS-SSCTIONAL  DIAHSTEB? 

5.4667 

^WHAT  IS  THE  ANGLE  OF  THE  ELBOW  TUBN7 
90 

LAST  QUESTION.  ABE  OfTINUH  NOHBEE  OF  CONCENTBIC  VANES 
INSTALLED  TO  3  EDUCE  F.ESISTANCS  AND  T3B3ULANCE  (T/N)? 

YDD  TOO  WANT  TO  ENTEB  THIS  TITIING  (T/N)? 

y»  TOO  ABE  WORKING  CN  FITTING  NOHBEE  >>  356204 


TOO  HAVE  SELECTEE  SIEAIGHT  DUCT.  IT  NAT  BE  BOOND  CB  BECTANG ULAB 
•••FIBST  QUESTION,  IS  THE  DUCT  CIBCULAB  08  BECTANGULAB  (C/B)  ? 
THE  DOCT  IS  CIBCULAB,  ENTEB  THE  DIAHSTEB  (FSET| 


5.5667 

^ENIER  135  LEHGTH  OF  THIS  DUCT  SECTION.  (FEET* 

6.23 

DO  YOU  BAHT  TO  2NTEB  THIS  FITTING  (Y/N) ? 

7>>  YCU  AES  HOSKING  CN  FITTING  NU33EB  >>  356205 
05 

YOU  HAVE  SELECTED  A  3ITEB2  D  ECOSD  EL30B. 

•* FIESI  QUESTION,  « HAT  IS  THE  CaOSS-SSCTIONAL  0IA3ETER? 

5.4667 

SHAT  IS  THE  ANGLE  OF  THE  SL30B  TUSH? 

•> 

90 

LAST  OU 1ST ION ,  AEE  CPTI3UN  NO HB EE  OF  CONCEHTBIC  VANES 
INSTALLED  TO  REDUCE  BESISTANCE  AND  TUaSULANCE  (Y/S) ? 

7DD  TOO  BANI  TO  ENTER  THIS  FITTING  (Y/N)? 

?>>  ICO  ARE  BOSK  TNG  ON  FITTING  NOHBEB  >>  356206 
■> 

02 

YOU  HAVE  SELECTED  ST5AIGHI  DUCT.  IT  SAY  BE  BOUND  OP.  RECTANGULAR 
•••FIRST  QUESTION,  IS  THE  DUCT  CIRCULAR  OR  3SCTANG0LAS  (C/R)  ? 
^THE  EUCT  IS  CIRCULAR,- ENTER  THE  DI43ETEH  (PEETV 
5.  4667 

^ENTER  THE  LENGTH  OF  THIS  DUCT  SECTION.  (FEET) 

3.033 

DO  YOU  BANT  TO  ESTER  THIS  FITTING  (Y/N)? 

7»  YOU  ARE  WORKING  CN  FITTING  NUH8EB  »  356207 
17 

YOU  HAVE  SELECTED  A  CONICAL  DIFFUSER  BIXH  CISCULAR 
INLET  AND  CUTLET  SECTIONS. 

^** FIRST  QUESTION,  WHAT  IS  THE  LENGTH  OF  THE  DIFUSER? 
i.  967 

SHAT  IS  THE  INLET  DIAMETEH? 

■> 

5.4667 

WHAT  IS  THE  OUTLET  DIAflETER? 

i 

7. 1667 

IS  THERE  A  NON-ONirCfia  VELOCITY  DISTRIBUTION  AT  THE  INLET  (1/5) ? 

SINCE  THEBE  IS  A  BITE  DIVERGING  ANGLE,  THE  PROPEB 
INSTALLATION  OF  DIVIDING  BALLS  OR  BAFFLES  CAN  REDUCE 
THE  RESISTANCE  OF  THIS  FITTING.  DO  YOU  BANT  TD  INSTALL 
DI7IDING  BALLS  OB  BAFFLES  (Y/N) ? 

NO  NOBS  QUESTIONS  THIS  FITTING. 

DO  YCU  KANT  TO  ENTER  THIS  FITTING  (Y/N) ? 

7»  YCU  ABE  N08KING  CN  FITTING  5U33EB  >>  35623S 
•> 

02 

YOU  HAVE  SELECTED  STRAIGHT  DUCT.  IT  HAY  BE  BOUND  OB  RECIANGULAB 
•••FIRST  QUESTION,  IS  THE  DUCT  CIECULAS  CH  RECTANGULAR  (C/B)  ? 
THE  DUCT  IS  CIRCULAR,  ENTER  THE  DIASEIEB  (FEET) 


-  jL  *. 


£.  EDITIIG  THE  DOCT  SATA  FILE 


This  section  demonstrates  the  editing  capacility  cf  the 
program.  The  editor  will  te  demonstrated  by  changing  a 
fitting.  The  fitting  chosen  is  an  elbow  in  the  exhaust 
duct.  It  has  cascaded  turning  vanes  installed.  By  using 
the  editor  the  turning  vanes  will  be  removed  and  an  ordinary 
mitered  round  elbow  will  be  substituted.  Any  fitting  that 
also  serves  the  purpose  could  be  substituted  as  well. 

The  program  can  also  add  or  delete  a  fitting.  It  is 
somewhat  limited  in  the  addition  anility.  The  program  can 
not  add  a  fitting  to  the  first  of  a  branch  in  one  step.  To 
add  a  fitting  to  the  duct  data  file  select  the  index  of  the 
fitting  in  the  file  that  the  fitting  is  to  be  placed  after. 
The  program  will  ask  what  fitting  is  to  be  added  and  then 
the  user  can  enter  the  fitting  directly  or  from  the.  menu. 
To  add  a  fitting  at  the  first  of  a  branch,  first  add  the 
same  first  fitting  presently  in  the  branch  after  itself, 
then  change  the  same  index  fitting  as  the  first  step  to  the 
desired  new  first  fitting. 

It  should  be  emphasized  that  the  editor  does  not  change 
a  system  class.  If  the  user  wants  a  different  duct  arrange¬ 
ment  a  new  file  will  have  to  be  entered. 
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1C  A  2  THESIS  (  STABT 
EXEC STIC  S  BEGINS... 

A  ONE-jI.MSSSIONAL  MCDEL  FOB  THE  SYSTEM  PERFORMANCE 
CF  A  SABINE  GAS  I'JSBINE  INSTALLATION 

BY  LCDS.  STEPHEN  .1.  EZ2ELL 

VERSION  1.0  MAaCH  30.  1994 
0'"I0NS:  SOILS  A  DATA  FILE  REPRESENTING  THE  DOST  SYSTEM 
EDIT  OB  CHANGE  THE  DUCT  DATA  FILS 
COMPUTE  SYSTEM  PERFORMANCE 

X -THCD :  INTERACTIVE  INPUT  JF  DATA,  3RANCHING  TO  DESIRED 
OPTION  BY  ANSWERING  QUESTIONS 

•**  WARNING,  TWC  NULL  ENTRIES  ON  NON  SB ICAL  INPUT  WILL  *»* 
•**  Kill  THE  PROGRAM.  ••• 


FI3ST  QUESTION: 

DO  YOU  HAVE  A  DATA  FILE  OP  DUCT  FITTINGS  (Y/N) ? 


DO  YOU  KANT  TO  EDIT  THE  FILE  OR  USE  IT  FOR  COMPUTATION  (E/C) ? 

DO  YOU  WANT  TO  CHANGE,  DELETE,  OP.  ADD  (C/D/A)? 

YOUR  CLT  FILE  WILL  EE  PERMANENTLY  CHANGED,  DID  YOU 
COPY  THE  OLD  FILE  UNDER  A  NEK  NAME  IF  YOU  WANTED  TO 
SAVE  IT?  IF  NOT,  ENTER  TWO  NOLL  STRINGS  TO  HILL  THE 
PROG  SAM. 

^WHAT  LIKE  DO  YOU  WANT  TO  EDIT? 

19 

00  YOU  SEED  A  MENU  (Y/N)  ? 

700  NC  MCRE  FITTINGS  THIS  BRANCH 
01  INTAKE  SHAFT.  EEC!  SECTION,  SIDE 
OhIFACES.  WITH  (CUT)  LOUVERS 
02  STRAIGHT  DUCT 
03  E13CK,  SMOOTH  RADIUS  ROUND 
04  ELBOW;  90  DEG;  3.4,5  PCS:  ROUND 
05  ELBOW,  MITERED •  ROUND,  WtW/0  VANES 
06  EL2CW,  MITERED.  RECTANGULAR 
07  ELBOW,  SMOOTH  RAEIUS,  RECTANGULAR 
08  EL3oW.  SMOOTH  3 AEIUS,  WITH 
SPLITTERS,  RECTANGULAR 
09  ELBOW,  MITERED  WITH  VANES.  P.ECT 

10  SI3CW,  CONVERGING  OR  DIVERGING 

FLOW,  RECTANGULAR 

11  SL3CHS,  90  DEG,  Z-SHAPSD.  SECT 

12  ELBOWS,  90  DEG,  IN  DIFFERENT 

PLANES,  RECTANGULAR 

13  DIVERGING  WYE.  BRANCH  SECTION  -  u..u 

/  *******  *****uSE  TWO  DIGIT  NUMBER,  PRESS  ENTEa*»*«**» 

»  YOU  ARE  WORKING  CN  FITTING  NUMBER  >>  356205 

05 

YOU  HAVE  SELECTED  A  MITERED  ROUND  ELBOW. 

^**FIBST  QUESTION,  WHAT  IS  THE  CROSS-SECTIONAL  DIAMETER? 

5.4667 

WHAT  IS  THE  ANGLE  OF  THE  ELBOW  TURN? 

90 

LAST  QUESTION ,  ARE  OPTIMUM  NUMBER  OF  CONCENTRIC  VANES 
INSTALLED  TO  REDUCE  RESISTANCE  AND  TUB  BULANCS  (Y/N)? 

°00  YCU  WANT  TO  ENTER  THIS  FITTING  (Y/N)? 


14  DIVERGING  WYE.  MAIN  SECTION 

15  CONVERGENT  WYE,  BRANCH  SECTION 

16  CONVERGENT  WYE,  MAIN  SECTION 

17  DIFFUS2H,  CONICAL  ROUND  SECTION 
13  DIFFUSER,  PLANE,  IN-LINE 

19  DIFFUSEB  PYRAMIDAL,  IN-LINE 

20  DIFFUSER,  TRANSITIONAL  (ROUND  TO 

P.ECT  OR  RECT  TO  ROUND) 

21  CONTRACTION  SCUND 

22  CONTRACTION  RECTANGULAR 

23  OBSTRUCTION, SCREEN  IN  DUCT 

24  LOUVER  ENTRANCE 

25  FILTER 

26  MULTI-BAFFLE  SILENCER 

27  GT  MODULE 

28  WASTE  HEAT  BCILER 

29  EXIT  ABRUPT 

30  FITTING  NOT  LISTED 


j 

j 


[. 


^  A  j  T  TO  CHANGE  ANOTHEK  FITTING  (Y/N|  ? 

"sASI  TO  SAKE  ANY  OTHER  CHANGES  (Y/Sl  ? 

DHHAT  SEHIAI  MUSSES  SC0L3  YOU  LIKE  TO  GI7E  THIS  33CT 
YOU  SAY  USE  JP  TO  A  SI*  01  GIT  IHTEGE5  MOSSES . 

-> 

510002 

00  YCU  SANT  TO  COMPOTE  3ITH  THE  FITE  OS  „3IT  (C/Q) ? 

q 


01 


F.  CCHPOTIMG  SYSTEM  PEBFOB  HANCE 

This  section  also  contains  a  recorded  terminal  session. 
The  computing  section  of  the  program  was  exercised  here. 
The  session  has  been  annotated  to  point  out  program 


GL03AL  TXTLI3  CMSLI3  F0RTM0D2  3002333  I 3SLSP  HONIMSL 
ICAO  THESIS  (  START 
EXECUTION  3EGINS... 

A  C  N  E-D IMENSI 0  N  AL  3C2SL  30  H  THE  SYSTEM  PERFOHMANCE 
OF  A  MARINE  GAS  TURBINE  INSTALLATION 

31  LCDS.  STEPHEN  3.  £22 ELL 

VERSION  1.C  MARCH  30,  1934 
OPTIONS:  £01 LO  A  DATA  FILE  aEPRtSSNTING  THE  DUCT  SYSTEM 
EDIT  OS  CHANGE  THE  30CT  DATA  FILE 
COMPUTE  SYSTEM  PERFORMANCE 

METHOD:  INTERACTIVE  INPUT  OF  DATA,  3SANCHI NG  TO  DESIRED 

OPTION  BY  ANSWERING  QUESTIONS 

***  WARNING,  TWO  NOLI  ENTRIES  CN  NUMERICAL  INPOT  WILL  *»* 
***  SILL  THE  PROGRAM.  *•* 


FIRST  Q OESTION : 

DO  YCU  HAVE  A  DATA  FILE  OF  DUCT  FITTINGS  (Y/N)  ? 

7 


DO  YOU  WANT  TO  EDIT  THE  FILE  OR  USE  IT  FOR  COMPUTATION  (E/C)  ? 

THIS  PORTION  OF  THE  PROGRAM  INPUTS  THE  ENVIROMENTAL  CONDITIONS. 
^WHAT  IS  THE  AMBIENT  TEMPERATURE  (DEGREES  F) ? 

75 

^WHAI  IS  THE  AMBIENT  PRESSURE  (PSIA)  ? 

14. 6 

^WHAT  IS  THE  RELATIVE  HUMIDITY  (GRAINS  PER  POUND  AIR)? 


70 

YOU  HAVE  SELECTED  A  SYSTEM  WITH  A  COOLING  FAN.  THE 


DEFAULT  SPECF ICATIQ  NS  ARE  FOR  THE  FAN  INSTALLED  CN 
THE  DD963  CLASS  SHIP. 


DO  YOU  WANT  TO  USE  THE  DEFAULT  SPSCFIC ATIONS  (Y/N)? 

YIN?0T  TEE  POWER  SETTING  YO 0  DESIRE. 

**W  HAT  IS  THE  HORSEECWER7 

•» 

20000 

^♦•W HAT  IS  THE  POWER  TURBINE  SPEED  (RPM) ? 

360  0 

THE  RESULTS  OF  THIS  RUN  HAVE  BEEN  ENTERED 
INTO  I  FILE  CALLED  "CUTPUT  DAIS". 

DO  YCU  WANT  TO  COMPOTE  WIT B  DIFFERENT  OPERATING  CONDITIONS  (Y/N) 

YINP0T  THE  POWER  SETTING  YOO  DESIRE. 

**W  HAT  IS  THE  HORSEPOWER? 

ioooo 

••WHAT  IS  THE  POWER  TURBIN  E  SPEED  (RPM)? 

220  0 

THE  RESULTS  OF  THIS  RUN  HAVE  BEEN  ENTERED 
INTO  l  FILS  CALLED  "CUTPUT  DATA". 

DO  YOU  WANT  TO  COMPUTE  WITH  DIFFERENT  OPERATING  CONDITIONS  (Y/N) 

DO  YOU  WANT  TO  EDIT  THE  DUCT  DATA  FILS  OR  QUIT  (E/Q)? 

9 


G.  EX11IBISG  THE  OUTPUT 

Included  in  this  section  are  copies  of  two  files.  The 
first  is  a  copy  of  the  file  the  author  built  using  the 
Arleigh  Eurke  class  example.  The  otaer  one  is  a  copy  of  the 
results  from  the  runs  made  in  the  compute  section  using  the 
sample  file  at  two  operating  points. 


510001 


THIS  PERFORMANCE  SUN  has  DEVELGP2D  FgOM  DUCT  DATA  FILE, 


INLET  CONDITIONS: 


ASSIES  I  TESP  (DEO  ?) 
AS3IENT  PBESS  (PSIA 
,  HUMIDITY  (0  SAINS) 

HCfiSErCHEH:  10000.3 

NET  -  - 


75.00 
la.  60 
70.30 


(8fS)  :  2200.3 

ENGINE  DUCT  LOSSES  (IN.W.G.) 
ENGINE 


INLET 


1.40 


EXHAUS' 


9.  10 


3INE  PSEFQH  a  JjJCS  PARAMETERS: 
«C=  25.42  LEM/SEC 

N2=  99.45  Le»/ SEC 


99. 88 
14. 97 
1231.00 


LSM/SEC 
LSM/SEC 
PSIA 
DEG  ~ 


S8  = 

P8= 

13  = 

8$:  i  s5  9?  o  wnttt/utn 

NG*  8332.3  SE3 
MODULE  COOLING  TEMP  OUT*  250.3 


OEG  F 


FITTING 

ID 


FITTING 

TIPE 


PBESS  USE  LOSS 
INCH  W.G. 


TELOCITY  ?B ESSO BE 
INCH  W.G. 


31220  1 

mm 

323101 

323102 

323103 


24 

25 


mm 


14 

26 

22 


24301 

-24002 

335101 


23 

13 

2 


0.30 

3:!! 

0.32 
0.06 
0.00 
0.12 
3.  34 

bli 


Ml 


335102 
34500  1 


345002 
356201 
356202 
356233 
356204 
356205 
35o  2  0  6 
356207 
356208 
356209 
356210 


16 

n 

21 

2 

5 


1? 


0.00 
0.  35 
1.69 
-1.84 
0.03 
0.  03 
0.  49 
0.02 
0.49 


2 

21 

29 


0.01 

o.  3o 


o.oo 
1.60 
5.  27 


0.32 

o.;; 

J*  4  a. 

0.  36 
0.36 
0.15 
0.15 
0.16 
0.79 
0.79 
1.33 
1.46 
0.3 

1.46 
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